syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Omit "name" to ctor for dataspace struct - name is/will be a property of the downward relay connection

This commit is contained in:
Tony Garnock-Jones 2018-04-25 19:30:45 +01:00
parent e6d6f67021
commit bc9b931312
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/dataspace.rkt
View File

@ -209,13 +209,13 @@
;;--------------------------------------------------------------------------- ;;---------------------------------------------------------------------------
(define (make-dataspace name boot-proc) (define (make-dataspace boot-proc)
(dataspace 0 (dataspace 0
(make-empty-skeleton) (make-empty-skeleton)
(make-bag) (make-bag)
(make-dataflow-graph) (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) (define (generate-id! ds)
(let ((id (dataspace-next-id ds))) (let ((id (dataspace-next-id ds)))
@ -563,7 +563,6 @@
(define ds (define ds
(make-dataspace (make-dataspace
'ground
(lambda () (lambda ()
(schedule-script! (schedule-script!
(current-dataspace) (current-dataspace)

1
syndicate/syntax.rkt
View File

@ -594,7 +594,6 @@
(define ds (define ds
(make-dataspace (make-dataspace
'ground
(lambda () (lambda ()
(schedule-script! (schedule-script!
(current-dataspace) (current-dataspace)