From f829403e91517789ac9a39f86066e037dc232a26 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sat, 1 May 2021 23:19:22 +0200 Subject: [PATCH] Small amount of tidying. --- sam.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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") -- 2.20.1