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