The Lambda Lab
/
projects
/
sam.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5d2d076
)
Small amount of tidying.
author
Tim Vaughan
<plugd@thelambdalab.xyz>
Sat, 1 May 2021 21:19:22 +0000
(23:19 +0200)
committer
Tim Vaughan
<plugd@thelambdalab.xyz>
Sat, 1 May 2021 21:19:22 +0000
(23:19 +0200)
sam.scm
patch
|
blob
|
history
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
;; 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
-;;
machine
s via the network.
+;; communicate using messages with actors on the same
host
or other
+;;
host
s via the network.
(import scheme
(chicken base)
(import scheme
(chicken base)
@@
-210,7
+210,7
@@
(begin
(set! main (make-actor main-beh)))
((exn)
(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))
(exit 1)))
(send-message main system))
(start-scheduler))
@@
-233,11
+233,12
@@
(set! sam-host hstr)
(loop rest))
(((? file-exists? filename) rest ...)
(set! sam-host hstr)
(loop rest))
(((? file-exists? filename) rest ...)
- (print* "Loading " filename "...")
+ (print* "
##
Loading " filename "...")
(load filename)
(print " done.")
(loop rest))
(()
(load filename)
(print " done.")
(loop rest))
(()
+ (print "## Booting SAM\n")
(boot-sam))
(else
(print "Unrecognised argument '" (car args) "'.\n")
(boot-sam))
(else
(print "Unrecognised argument '" (car args) "'.\n")