X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=sam.git;a=blobdiff_plain;f=sam.scm;h=ed69987ff51aae1b0d8df6ac3f992f2c34c8ecc6;hp=1d23712a9baf50af8e6502ddaaae708d3be6f53b;hb=f829403e91517789ac9a39f86066e037dc232a26;hpb=5d2d076345efb45ced333e832d1cbf766bcd5e8a

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")