add actors

io/JSON.io

@@ -4,8 +4,7 @@ Json := Object clone do(
     l := list()
     l appendProto(Json)
     call message arguments foreach(arg,
-      a := Json doMessage(arg)
-      l push(a)
+      l push(Json doMessage(arg))
     )
     l
   )

io/actors.io

@@ -0,0 +1,25 @@
+Lookup := Object clone do(
+  find := method(query, caller,
+    wait(2);
+    caller @@onFind(query asUppercase)
+  )
+)
+
+UI := Object clone do(
+  run := method(
+    stdin := File standardInput
+    loop(
+      "Give me a movie" println
+      line := stdin readLine
+      Lookup clone @@find(line, self)
+      yield
+    )
+  )
+
+  onFind := method(response,
+    "Got response: " println
+    response println
+  )
+)
+
+UI run