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