From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 25 Apr 2016 16:44:55 +0000 (-0500)
Subject: demos: botherbotherbother: Make executable from command line.
X-Git-Tag: v0.2.0~48
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=cbce0f1bda15d3691e706ab7def3407757ffe8f8

demos: botherbotherbother: Make executable from command line.

* demos/actors/botherbotherbother.scm: Make executable.
  Add shebang.
  (main): Allow arbitrary arguments from the command line or wherever.
---

diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm
old mode 100644
new mode 100755
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>
 ;;;
@@ -108,7 +112,7 @@
 
 (define num-students 10)
 
-(define (main)
+(define (main . args)
   (define agenda (make-agenda))
   (define hive (make-hive))
   (define professor (hive-create-actor hive <professor>))