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

Extract collected values in (until) macro

This commit is contained in:
Tony Garnock-Jones 2015-12-09 14:34:24 +13:00
parent 2004d30f3a
commit 4b0d800b5f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
prospect/actor.rkt
View File

@ -203,9 +203,14 @@
[(_ [O ...] [E Oe ...] ...)
(expand-state 'call #'() #'() #'() #'(O ...) #'([E Oe ...] ...))]))
(define-syntax (named-binding-values stx)
(syntax-parse stx
[(_ #:collect [(id init) ...] O ...) #'(values id ...)]
[(_ O ...) #'(void)]))
;; Sugar
(define-syntax-rule (until E O ...)
(state [O ...] [E (void)])) ;; TODO: return collected value(s)
(state [O ...] [E (named-binding-values O ...)]))
;; Sugar
(define-syntax-rule (forever O ...)
@ -346,7 +351,7 @@
(- (length state-variable-init-exps) 1))
(for ((edge (syntax->list edges)))
(printf "~v\n" edge))
(printf "~v\n" (syntax->datum edge)))
(define action-fn-stx
#`(lambda (self-id caller-id)