Re-named "seq" to "and" and "alt" to "or".

1 files changed, 9 insertions, 9 deletions

diff --git a/stdlib/source/lux/concurrency/actor.lux b/stdlib/source/lux/concurrency/actor.lux
index 05229b49e..30924c86d 100644
--- a/stdlib/source/lux/concurrency/actor.lux
+++ b/stdlib/source/lux/concurrency/actor.lux
@@ -171,8 +171,8 @@
 
 (def: actor-decl^
   (Syntax [Text (List Text)])
-  (p.either (s.form (p.seq s.local-identifier (p.some s.local-identifier)))
-            (p.seq s.local-identifier (:: p.Monad<Parser> wrap (list)))))
+  (p.either (s.form (p.and s.local-identifier (p.some s.local-identifier)))
+            (p.and s.local-identifier (:: p.Monad<Parser> wrap (list)))))
 
 (do-template [<name> <desc>]
   [(def: #export <name>
@@ -195,11 +195,11 @@
 
 (def: behavior^
   (s.Syntax BehaviorC)
-  (let [handle-args ($_ p.seq s.local-identifier s.local-identifier s.local-identifier)
-        stop-args ($_ p.seq s.local-identifier s.local-identifier)]
-    (p.seq (p.maybe (s.form (p.seq (s.form (p.after (s.this (' handle)) handle-args))
+  (let [handle-args ($_ p.and s.local-identifier s.local-identifier s.local-identifier)
+        stop-args ($_ p.and s.local-identifier s.local-identifier)]
+    (p.and (p.maybe (s.form (p.and (s.form (p.after (s.this (' handle)) handle-args))
                                    s.any)))
-           (p.maybe (s.form (p.seq (s.form (p.after (s.this (' stop)) stop-args))
+           (p.maybe (s.form (p.and (s.form (p.after (s.this (' stop)) stop-args))
                                    s.any))))))
 
 (syntax: #export (actor:
@@ -284,7 +284,7 @@
 
 (def: signature^
   (s.Syntax Signature)
-  (s.form ($_ p.seq
+  (s.form ($_ p.and
               (p.default (list) (s.tuple (p.some s.local-identifier)))
               s.local-identifier
               (p.some csr.typed-input)
@@ -294,8 +294,8 @@
 
 (def: reference^
   (s.Syntax [Name (List Text)])
-  (p.either (s.form (p.seq s.identifier (p.some s.local-identifier)))
-            (p.seq s.identifier (:: p.Monad<Parser> wrap (list)))))
+  (p.either (s.form (p.and s.identifier (p.some s.local-identifier)))
+            (p.and s.identifier (:: p.Monad<Parser> wrap (list)))))
 
 (syntax: #export (message:
                    {export csr.export}