- Implemented Agent-Oriented Programming.

2 files changed, 25 insertions, 0 deletions

diff --git a/stdlib/test/test/lux/concurrency/space.lux b/stdlib/test/test/lux/concurrency/space.lux
new file mode 100644
index 000000000..d99733958
--- /dev/null
+++ b/stdlib/test/test/lux/concurrency/space.lux
@@ -0,0 +1,23 @@
+(;module:
+  lux
+  (lux (control [monad #+ do])
+       (concurrency ["T" task]
+                    ["A" actor #+ actor:]
+                    ["S" space #+ on:])
+       [io]))
+
+(type: Move
+  #Ping
+  #Pong)
+
+(A;actor: #export Player {}
+  {#hits Nat})
+
+(on: Player Move (reply! who where what state self)
+  (do @
+    [_ (S;emit (case what
+                 #Ping #Pong 
+                 #Pong #Ping)
+               where
+               self)]
+    (wrap (update@ #hits n.inc state))))
diff --git a/stdlib/test/tests.lux b/stdlib/test/tests.lux
index 39ac02d5e..2f1da760f 100644
--- a/stdlib/test/tests.lux
+++ b/stdlib/test/tests.lux
@@ -13,6 +13,7 @@
                    ["_;" duration]
                    ["_;" date])
              (concurrency ["_;" actor]
+                          ["_;" space]
                           ["_;" atom]
                           ["_;" frp]
                           ["_;" promise]
@@ -71,6 +72,7 @@
              ))
   (lux (control [contract]
                 [concatenative])
+       (concurrency [space])
        (data [env]
              [trace]
              [store]