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

Remove inst on core:transition where no actions are present

This commit is contained in:
Tony Garnock-Jones 2013-05-01 12:27:02 -04:00
parent 9ad04bc489
commit 14ff172621
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
marketplace/sugar-typed.rkt
View File

@ -75,7 +75,7 @@
#`(lambda: ([state : State]) (match state [state-pattern e-attr]))
#`(lambda: ([state : State]) ((inst core:transition State) state e-attr)))])
#`([event-pattern (lambda: ([state : State])
((inst core:transition State) state '()))])))
(core:transition state '()))])))
(define role-pattern
(cond
[(attribute role)
@ -116,7 +116,7 @@
[state-pattern
(match message
[message-pattern clause-body] ...
[_ ((inst core:transition State) state '())])]))
[_ (core:transition state '())])]))
#`(lambda: ([state : State])
((inst core:transition State)
state
@ -124,7 +124,7 @@
[message-pattern clause-body] ...
[_ '()]))))]
[_
(lambda: ([state : State]) ((inst core:transition State) state '()))])))])))
(lambda: ([state : State]) (core:transition state '()))])))])))
(define-syntax spawn:
(lambda (stx)