10 lines
236 B
Racket
10 lines
236 B
Racket
|
#lang racket/base
|
||
|
|
|
||
|
|
(provide run-ground)
|
||
|
|
|
||
|
|
(require "dataspace.rkt")
|
||
|
|
|
||
|
|
(define (run-ground boot-proc)
|
||
|
|
(define ds (make-dataspace (lambda () (schedule-script! (current-actor) boot-proc))))
|
||
|
|
(let loop () (when (run-scripts! ds) (loop))))
|