From bffc3757cb86d4835692224ec84857d3b1227342 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 21 Jul 2016 15:00:58 -0400 Subject: [PATCH] Remove unused #:substate arg from add-facet!. --- racket/syndicate/actor.rkt | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/racket/syndicate/actor.rkt b/racket/syndicate/actor.rkt index 8581fb5..919272a 100644 --- a/racket/syndicate/actor.rkt +++ b/racket/syndicate/actor.rkt @@ -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