X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=demos%2Factors%2Frobotscanner.scm;h=80cd2e57bc10259a469b0183e0f7bd753ef75829;hp=361324b44ff1953081d63b238e888091582666f0;hb=9414dea358e9067f1d333650df1a228dcc4bf378;hpb=64319d0c2d3809d35ab6017456e095b6bdabfd08

diff --git a/demos/actors/robotscanner.scm b/demos/actors/robotscanner.scm
index 361324b..80cd2e5 100644
--- a/demos/actors/robotscanner.scm
+++ b/demos/actors/robotscanner.scm
@@ -16,6 +16,23 @@
 ;;; You should have received a copy of the GNU Lesser General Public
 ;;; License along with 8sync.  If not, see <http://www.gnu.org/licenses/>.
 
+;;; =====================================================================
+;;; Robot Scanner test demo (from XUDD, originally).
+;;; 
+;;; Here's the premise.  There's a warehouse full of droids, some
+;;; infected, and some not.  The SecurityRobot is being sent in to clean
+;;; up the mess.  It's capable of sending a message that infected droids
+;;; are susceptible to responding in a predictable way.  Once it has
+;;; identified that a droid is infected, it shoots it full of holes till
+;;; the droid is terminated.  The SecurityRobot goes from room to room
+;;; till things are cleared out.
+;;; 
+;;; Overseeing the operation is the "overseer".  The security robot keeps
+;;; the overseer up to date on its progress as it goes.  (For this demo,
+;;; the overseer is also responsible for initializing the world and
+;;; reporting info back to the user.)
+;;; =====================================================================
+
 (use-modules (8sync systems actors)
              (oop goops)
              (ice-9 match))
@@ -244,9 +261,9 @@
    (send-message actor overseer 'transmission
                  #:message "Mission accomplished.")))
 
-(define (main)
+(define (main . args)
   (define hive (make-hive))
   (define overseer (hive-create-actor hive <overseer>))
   (define initial-messages
-    (list (hive-bootstrap-message hive overseer 'init-world)))
+    (list (bootstrap-message hive overseer 'init-world)))
   (ez-run-hive hive initial-messages))