[changed start script + compilation
tom@goto10.org**20070604164946] {
hunk ./brood/pic18.ss 31
-  (define (badnop statefile)
-    (run-source '(start-badnop) `(,statefile)))
+  (define (badnop statefile entrypoint)
+    (run-source `(,entrypoint) `(,statefile)))
hunk ./brood/terminal.ss 93
- (start-badnop    read-file-1
-                  '(init-host) badnop
-                  current-mode)
+ (badnop-console    read-file-1
+                   '(init-host) badnop
+                    current-mode)
hunk ./go 10
+mzc -k brood/pic18.ss
hunk ./start-pic18.ss 4
-;; as first argument the state file, and an optional 2nd argument the
-;; script name, if you want to enable restarting (i.e. 'core')
+;; as first argument the state file.
hunk ./start-pic18.ss 7
-;; mzscheme -mqr <script> <state> <script>
+;; mzscheme -mqr <script> <state>
hunk ./start-pic18.ss 9
-;; (display argv) (newline)
hunk ./start-pic18.ss 11
-
-
-(printf "compiling core\n")
-(require (lib "cm.ss"))
-(managed-compile-zo "brood/pic18.ss")
+;; do this in shell script
+;(printf "compiling core\n")
+;(require (lib "cm.ss"))
+;(managed-compile-zo "brood/pic18.ss")
hunk ./start-pic18.ss 24
+(define entrypoint (arg/default 1 "badnop-console"))
hunk ./start-pic18.ss 32
-(printf "loading ~a\n" state)
-(badnop state)
+(printf "loading ~a (~a)\n" state entrypoint)
+(badnop state
+        (string->symbol entrypoint))
}