Add automatic loading of "pack.scm".

diff --git a/etc/pack-compiler-mc68k.scm b/etc/pack-compiler-mc68k.scm
index 6de353c0e0cd108f1759e54da1a39f3e580e7049..1f4611d12d2457354a876e151517549fdabaf4f6 100644 (file)
--- a/etc/pack-compiler-mc68k.scm
+++ b/etc/pack-compiler-mc68k.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pack-compiler-mc68k.scm,v 1.1 1993/11/22 01:39:48 cph Exp $
+$Id: pack-compiler-mc68k.scm,v 1.2 1993/11/23 20:59:58 cph Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -34,6 +34,10 @@ MIT in each case. |#
 
 ;;;; File to generate a single loadable file for sf and Liar
 \f
+(if (not (environment-bound? system-global-environment 'PACK-BINARIES))
+    (load (merge-pathnames "pack" (directory-pathname (current-load-pathname)))
+         '(RUNTIME LOAD)))
+
 (define (pack-compiler output)
   (pack-binaries output
                 '(("sf"

diff --git a/etc/pack-compiler-mips.scm b/etc/pack-compiler-mips.scm
index d4c19b3c18a752eab674c2dd7443c7809511a331..1652a44b1b4e5329dbda1e27745604d124d3aed4 100644 (file)
--- a/etc/pack-compiler-mips.scm
+++ b/etc/pack-compiler-mips.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pack-compiler-mips.scm,v 1.1 1993/11/21 23:01:09 cph Exp $
+$Id: pack-compiler-mips.scm,v 1.2 1993/11/23 21:00:53 cph Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -34,6 +34,10 @@ MIT in each case. |#
 
 ;;;; File to generate a single loadable file for sf and Liar
 \f
+(if (not (environment-bound? system-global-environment 'PACK-BINARIES))
+    (load (merge-pathnames "pack" (directory-pathname (current-load-pathname)))
+         '(RUNTIME LOAD)))
+
 (define (pack-compiler output)
   (pack-binaries output
                 '(("sf"

diff --git a/etc/pack-edwin-unix.scm b/etc/pack-edwin-unix.scm
index 83446fe435f23976d13bea29d55a8dafc9001538..d8339d2e9a98c96af31264a30c85eb211ca28daf 100644 (file)
--- a/etc/pack-edwin-unix.scm
+++ b/etc/pack-edwin-unix.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pack-edwin-unix.scm,v 1.1 1993/11/21 22:59:57 cph Exp $
+$Id: pack-edwin-unix.scm,v 1.2 1993/11/23 21:01:10 cph Exp $
 
 Copyright (c) 1993 Massachusetts Institute of Technology
 
@@ -34,6 +34,10 @@ MIT in each case. |#
 
 ;;;; File to generate a single loadable file for Edwin
 \f
+(if (not (environment-bound? system-global-environment 'PACK-BINARIES))
+    (load (merge-pathnames "pack" (directory-pathname (current-load-pathname)))
+         '(RUNTIME LOAD)))
+
 (define (pack-edwin output)
   (pack-binaries output
                 '(("edwin"