demos: actors: Update main functions to support arbitrary arguments.

[8sync.git] / demos / actors / robotscanner.scm

diff --git a/demos/actors/robotscanner.scm b/demos/actors/robotscanner.scm
index f2d1d93f5f0cc765601e41e520991ab0a006a16e..89088c61f1220975ad8aec1e3cc6ce2688d315c0 100644 (file)
--- a/demos/actors/robotscanner.scm
+++ b/demos/actors/robotscanner.scm
@@ -261,7 +261,7 @@
    (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