[restart fixes
tom@goto10.org**20070430141740] {
hunk ./brood/catlib.ss 12
+   (lib "restart.ss")
hunk ./brood/catlib.ss 342
+  (define-word bye stack (exit))
+  (define (register-restart cont state)
+    (define-word restart stack
+      (restart-mzscheme '("")
+                        (lambda (x) x)
+                        `("-mqr" ,cont ,state ,cont)
+                        (lambda () #f))))
+
hunk ./brood/catlib.ss 351
+  
+  
hunk ./start-pic18.ss 3
+;; this script should be invoked in the toplevel brood directory, with
+;; as first argument the state file, and an optional 2nd argument the
+;; script name, if you want to enable restarting (i.e. 'core')
+
+;; invoking from emacs/comint as:
+;; mzscheme -mqr <script> <state> <script>
+
+(display argv) (newline)
+
hunk ./start-pic18.ss 39
-(require (file "brood/catcomp.ss"))
-
-(require (lib "restart.ss"))
-
-(define restart
-  (if cont
-      (lambda ()
-        (restart-mzscheme '("")
-                          (lambda (x) x)
-                          `("-mqr" ,state ,cont)
-                          (lambda () #f)))
-      (lambda ()
-        (printf "Can't restart core: no continuation script specified.\n")
-        (exit))))
+(require (file "brood/catlib.ss"))
hunk ./start-pic18.ss 41
-(define-word restart stack (restart))
-(define-word bye stack (exit))
+(register-restart cont state)
}