#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))))