demos: botherbotherbother: Make executable from command line.

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

diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm
old mode 100644 (file)
new mode 100755 (executable)
index 3a2747a..5a43a8b
--- a/demos/actors/botherbotherbother.scm
+++ b/demos/actors/botherbotherbother.scm
@@ -1,3 +1,7 @@
+#!/usr/bin/guile \
+-e main -s
+!#
+

 ;;; 8sync --- Asynchronous programming for Guile
 ;;; Copyright (C) 2016 Christopher Allan Webber <cwebber@dustycloud.org>
 ;;;
 ;;; 8sync --- Asynchronous programming for Guile
 ;;; Copyright (C) 2016 Christopher Allan Webber <cwebber@dustycloud.org>
 ;;;


@@ -108,7 +112,7 @@
 
 (define num-students 10)
 
 
 (define num-students 10)
 

-(define (main)
+(define (main . args)

   (define agenda (make-agenda))
   (define hive (make-hive))
   (define professor (hive-create-actor hive <professor>))
   (define agenda (make-agenda))
   (define hive (make-hive))
   (define professor (hive-create-actor hive <professor>))