From: Tim Vaughan <plugd@thelambdalab.xyz>
Date: Sat, 1 May 2021 21:19:22 +0000 (+0200)
Subject: Small amount of tidying.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=f829403e91517789ac9a39f86066e037dc232a26;p=sam.git

Small amount of tidying.
---

diff --git a/sam.scm b/sam.scm
index 1d23712..ed69987 100644
--- a/sam.scm
+++ b/sam.scm
@@ -1,8 +1,8 @@
 ;; Simple Actor Machine
 ;;
 ;; A virtual machine which houses a population of actors which can
-;; communicate using messages with actors on the same machine or other
-;; machines via the network.
+;; communicate using messages with actors on the same host or other
+;; hosts via the network.
 
 (import scheme
         (chicken base)
@@ -210,7 +210,7 @@
         (begin
           (set! main (make-actor main-beh)))
       ((exn)
-       (print "Error starting main actor. Is main-beh defined?")
+       (print "## Error starting main actor. Is main-beh defined?")
        (exit 1)))
     (send-message main system))
   (start-scheduler))
@@ -233,11 +233,12 @@
      (set! sam-host hstr)
      (loop rest))
     (((? file-exists? filename) rest ...)
-     (print* "Loading " filename "...")
+     (print* "## Loading " filename "...")
      (load filename)
      (print " done.")
      (loop rest))
     (()
+     (print "## Booting SAM\n")
      (boot-sam))
     (else
      (print "Unrecognised argument '" (car args) "'.\n")