Omit "name" to ctor for dataspace struct - name is/will be a property of the downward relay connection
This commit is contained in:
parent
e6d6f67021
commit
bc9b931312
|
@ -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)
|
||||
|
|
|
@ -594,7 +594,6 @@
|
|||
|
||||
(define ds
|
||||
(make-dataspace
|
||||
'ground
|
||||
(lambda ()
|
||||
(schedule-script!
|
||||
(current-dataspace)
|
||||
|
|
Loading…
Reference in New Issue