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

Cosmetic

This commit is contained in:
Tony Garnock-Jones 2014-06-27 16:27:16 -04:00
parent 9af8adee79
commit 9dd268bdfd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
minimart/actor.rkt
View File

@ -242,7 +242,7 @@
(if (ormap (lambda (i) (free-identifier=? #'head i))
(syntax->list #'(define-values define-syntaxes begin-for-syntax
module module*
#%module-begin
#%module-begin
#%require #%provide)))
(begin (push! body-forms #'expr)
(walk-forms #'(rest ...)))
@ -507,7 +507,7 @@
(define (accumulate-actions context-id action-ids final-forms forms)
(syntax-case forms ()
[()
#`(match-state state
#`(match-state state
#,@(reverse final-forms)
(transition state (list #,@(reverse action-ids))))]
@ -544,7 +544,7 @@
(if (ormap (lambda (i) (free-identifier=? #'head i))
(syntax->list #'(define-values define-syntaxes begin-for-syntax
module module*
#%module-begin
#%module-begin
#%require #%provide)))
(accumulate-actions context-id
action-ids