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

Remove unused #:substate arg from add-facet!.

This commit is contained in:
Tony Garnock-Jones 2016-07-21 15:00:58 -04:00
parent 573ca4d6e5
commit bffc3757cb
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/syndicate/actor.rkt
View File

@ -283,8 +283,7 @@
(syntax-parse stx
[(_ O ...)
(quasisyntax/loc stx
(add-facet! #:substate #t
#,(source-location->string stx)
(add-facet! #,(source-location->string stx)
(lambda () (begin/void-default O ...))))]))
(define-syntax (react/suspend stx)
@ -293,8 +292,7 @@
(quasisyntax/loc stx
(suspend-script* #,(source-location->string stx)
(lambda (resume-parent)
(add-facet! #:substate #t
#,(source-location->string stx)
(add-facet! #,(source-location->string stx)
(lambda () (begin/void-default O ...))))))]))
(define-syntax (until stx)
@ -812,12 +810,12 @@
;; Facet Lifecycle
(define next-fid 0)
(define (add-facet! #:substate substate? where setup-proc)
(define (add-facet! where setup-proc)
(when (not (in-script?))
(error 'add-facet!
"~a: Cannot add facet outside script; are you missing an (on ...)?"
where))
(define parent-fid (and substate? (current-facet-id)))
(define parent-fid (current-facet-id))
(define fid next-fid)
(set! next-fid (+ next-fid 1))
(update-facet! fid (lambda (_f) (facet 'not-yet-ready