diff options
| author | Eduardo Julian | 2017-01-12 23:10:38 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-01-12 23:10:38 -0400 |
| commit | 4a039138dd87e2c2f232f9ce7198b4e36ca403f9 (patch) | |
| tree | 94789923d313f21155e6022f390a0379d1e8f122 /stdlib/source/lux/concurrency/actor.lux | |
| parent | c12eeb2b91cc6944363476307ede89b3a6b0524a (diff) | |
- Simplified the macros for asking about or ensuring AST tokens.
Diffstat (limited to 'stdlib/source/lux/concurrency/actor.lux')
| -rw-r--r-- | stdlib/source/lux/concurrency/actor.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/concurrency/actor.lux b/stdlib/source/lux/concurrency/actor.lux index 650065a0e..e55386d9d 100644 --- a/stdlib/source/lux/concurrency/actor.lux +++ b/stdlib/source/lux/concurrency/actor.lux @@ -133,7 +133,7 @@ (wrap (#;Right new-server)))) )))) #end (lambda [_ server] (exec (io;run (poison server)) - (:: Monad<Promise> wrap [])))})))] + (:: Monad<Promise> wrap [])))})))] (update@ #obituary (: (-> (P;Promise [(Maybe Text) (Actor ($ +0) ($ +1)) (List ($ +1))]) (P;Promise [(Maybe Text) ($ +0) (List ($ +1))])) (lambda [process] @@ -154,7 +154,7 @@ (def: method^ (Syntax Method) (s;form (do s;Monad<Syntax> - [_ (s;symbol! ["" "method:"]) + [_ (s;sample! (' method:)) vars (s;default (list) (s;tuple (s;some s;local-symbol))) [name args] (s;form ($_ s;seq s;local-symbol @@ -171,7 +171,7 @@ (def: stop^ (Syntax AST) (s;form (do s;Monad<Syntax> - [_ (s;symbol! ["" "stop:"])] + [_ (s;sample! (' stop:))] s;any))) (def: actor-decl^ |