diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index 2b23b6a..fbdcdfe 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -209,13 +209,13 @@ ;;--------------------------------------------------------------------------- -(define (make-dataspace name boot-proc) +(define (make-dataspace boot-proc) (dataspace 0 (make-empty-skeleton) (make-bag) (make-dataflow-graph) '() - (enqueue (make-queue) (action-group 'meta (list (spawn name boot-proc (set))))))) + (enqueue (make-queue) (action-group 'meta (list (spawn #f boot-proc (set))))))) (define (generate-id! ds) (let ((id (dataspace-next-id ds))) @@ -563,7 +563,6 @@ (define ds (make-dataspace - 'ground (lambda () (schedule-script! (current-dataspace) diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt index 4cf5efa..6305bb5 100644 --- a/syndicate/syntax.rkt +++ b/syndicate/syntax.rkt @@ -594,7 +594,6 @@ (define ds (make-dataspace - 'ground (lambda () (schedule-script! (current-dataspace)