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