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