X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=3f24bb5df029dd6e7486c3f4ec59a038200e9ab8;hb=2d65a5544c5134461574a0e69a6f1361bb98b27c;hp=f50db9e4856dbfb958d30a15e34ee3a6ac6eb172;hpb=8fc5fda05f92d69c95b47e4ad7561d91dab18c3e;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index f50db9e..3f24bb5 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -11,9 +11,6 @@
 ;;;; files for more information.
 
 (in-package "SB!IMPL")
-
-(file-comment
-  "$Header$")
 
 ;;;; burning our ships behind us
 
@@ -88,7 +85,7 @@
   (/show0 "entering !COLD-INIT")
 
   ;; FIXME: It'd probably be cleaner to have most of the stuff here
-  ;; handled by calls a la !GC-COLD-INIT, !ERROR-COLD-INIT, and
+  ;; handled by calls like !GC-COLD-INIT, !ERROR-COLD-INIT, and
   ;; !UNIX-COLD-INIT. And *TYPE-SYSTEM-INITIALIZED* could be changed to
   ;; *TYPE-SYSTEM-INITIALIZED-WHEN-BOUND* so that it doesn't need to
   ;; be explicitly set in order to be meaningful.
@@ -260,11 +257,8 @@
   ;; The show is on.
   (terpri)
   (/show0 "going into toplevel loop")
-  (let ((wot (catch '%end-of-the-world
-	       (/show0 "inside CATCH '%END-OF-THE-WORLD")
-	       (toplevel))))
-    (flush-standard-output-streams)
-    (sb!unix:unix-exit wot)))
+  (handling-end-of-the-world 
+    (toplevel-init)))
 
 (defun quit (&key recklessly-p
 		  (unix-code 0 unix-code-p)
@@ -282,7 +276,7 @@
 instead (which is another name for the same thing)."))
   (if recklessly-p
       (sb!unix:unix-exit unix-status)
-      (throw '%end-of-the-world unix-code)))
+      (throw '%end-of-the-world unix-status)))
 
 ;;;; initialization functions