From bc9b93131294257accc4595c55c1715a1209a28b Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 25 Apr 2018 19:30:45 +0100 Subject: [PATCH] Omit "name" to ctor for dataspace struct - name is/will be a property of the downward relay connection --- syndicate/dataspace.rkt | 5 ++--- syndicate/syntax.rkt | 1 - 2 files changed, 2 insertions(+), 4 deletions(-) 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)