0.6.12.13:

[sbcl.git] / make-host-2.sh

diff --git a/make-host-2.sh b/make-host-2.sh
index b81a424..8b0979a 100644 (file)
--- a/make-host-2.sh
+++ b/make-host-2.sh
@@ -102,15 +102,15 @@ $SBCL_XC_HOST <<-'EOF' || exit 1
         ;; cross-compilation host which supports CMU-CL-style SAVE-LISP,
         ;; this can be a good time to run it. The resulting core isn't
        ;; used in the normal build, but can be handy for experimenting
-       ;; with the system.
-        
-       ;; REMOVEME: should be conditional on :SB-SHOW again
-       ;;(when (find :sb-show *shebang-features*)
+       ;; with the system. (See slam.sh for an example.)
+       (when (find :sb-after-xc-core *shebang-features*)
           #+cmu (ext:save-lisp "output/after-xc.core" :load-init-file nil)
           #+sbcl (sb-ext:save-lisp-and-die "output/after-xc.core")
-         ;;)
+         )
        EOF
 
-# Run GENESIS (again) (The first time was before we ran the
-# cross-compiler.) in order to create cold-sbcl.core.
+# Run GENESIS (again) in order to create cold-sbcl.core. (The first
+# time was before we ran the cross-compiler, in order to create the
+# header file which was needed in order to run gcc on the runtime
+# code.)
 sh make-genesis-2.sh