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

Lenient matching of conversation patterns etc.

This commit is contained in:
Tony Garnock-Jones 2013-04-30 16:26:31 -04:00
parent bc2bb30fb3
commit 4dc551632f
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
marketplace/sugar-typed.rkt
View File

@ -122,7 +122,9 @@
state state
(match message (match message
[message-pattern clause-body] ... [message-pattern clause-body] ...
[_ '()]))))])))]))) [_ '()]))))]
[_
(lambda: ([state : State]) ((inst core:transition State) state '()))])))])))
(define-syntax spawn: (define-syntax spawn:
(lambda (stx) (lambda (stx)

4
marketplace/sugar-untyped.rkt
View File

@ -108,7 +108,9 @@
(core:transition state (core:transition state
(match message (match message
[message-pattern clause-body] ... [message-pattern clause-body] ...
[_ '()]))))])))]))) [_ '()]))))]
[_
(lambda (state) (core:transition state '()))])))])))
(define-syntax spawn (define-syntax spawn
(lambda (stx) (lambda (stx)