Woot, this seems good!

gib-gab-gob/actors.scm

@@ -71,7 +71,7 @@
       ($ board 'choose! move mark)
       move))
 
-  (define (initiate-move peer)
+  (define (loop-move peer)
     (format #t "begin move w ~s\n" peer)
     (on (<- peer 'exchange-move receiver
         (move!))
@@ -79,19 +79,21 @@
         (lambda (peer-move)
           ;; Actually respond to the move
           (format #t "Peer move ~s\n" peer-move)
-          ($ board 'choose! peer-move peer-mark))))
+          ($ board 'choose! peer-move peer-mark)
+          ;; And now we repeat!
+          (loop-move peer))))
 
   ;; Initial logic. If the peer is not set we wait until we receive it.
   ;; If we don't go first we also wait.
   (when (and arg-peer initiator)
-    (initiate-move arg-peer))
+    (loop-move arg-peer))
 
   (methods
    [(get-receiver) receiver]
    ;; Learn about the receiver from the peer. Then do our move if we are first.
    [(register-receiver peer)
     (when initiator
-      (initiate-move peer))]))
+      (loop-move peer))]))
 
 ;; Board logic