Small amount of tidying.

diff --git a/sam.scm b/sam.scm
index 1d23712..ed69987 100644 (file)
--- 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")