From c55d6d2f064f298152b43564df61150e27a2a1c7 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Tue, 26 Apr 2016 13:39:52 -0500 Subject: [PATCH] demos: actors: Update main functions to support arbitrary arguments. * demos/actors/robotscanner.scm (main): * demos/actors/simplest-possible.scm (run-demo): Update to take arbitrary arguments. This allows being more easily run by the command line. --- demos/actors/robotscanner.scm | 2 +- demos/actors/simplest-possible.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/demos/actors/robotscanner.scm b/demos/actors/robotscanner.scm index f2d1d93..89088c6 100644 --- 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 )) (define initial-messages diff --git a/demos/actors/simplest-possible.scm b/demos/actors/simplest-possible.scm index 6c97159..09ee227 100644 --- a/demos/actors/simplest-possible.scm +++ b/demos/actors/simplest-possible.scm @@ -35,7 +35,7 @@ (define hive (make-hive)) (define our-emo (hive-create-actor hive )) (define our-proog (hive-create-actor hive )) -(define (run-demo) +(define (run-demo . args) (ez-run-hive hive (list (hive-bootstrap-message hive our-emo 'greet-proog #:target our-proog)))) -- 2.31.1