Supply default arguments for PACK-COMPILER and PACK-EDWIN.

diff --git a/etc/pack-compiler-alpha.scm b/etc/pack-compiler-alpha.scm
index 5435e24ae4f744a9a248e5c2b591aa18a5a769f2..5102259741373c3ed936a24071c9197012c233c9 100644 (file)
--- a/etc/pack-compiler-alpha.scm
+++ b/etc/pack-compiler-alpha.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: pack-compiler-alpha.scm,v 1.1 1993/11/23 23:18:36 cph Exp $
+$Id: pack-compiler-alpha.scm,v 1.2 1994/05/03 04:50:31 cph Exp $
 
-Copyright (c) 1993 Massachusetts Institute of Technology
+Copyright (c) 1993-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -39,7 +39,7 @@ MIT in each case. |#
          '(RUNTIME LOAD)))
 
 (define (pack-compiler output)
-  (pack-binaries output
+  (pack-binaries (if (default-object? output) "lib/compdel.com" output)
                 '(("sf"
                    "make.com"
                    "sf.bcon"

diff --git a/etc/pack-compiler-mc68k.scm b/etc/pack-compiler-mc68k.scm
index 1f4611d12d2457354a876e151517549fdabaf4f6..3634c6be0f8f6ef6bed83ea483651f037464fd80 100644 (file)
--- a/etc/pack-compiler-mc68k.scm
+++ b/etc/pack-compiler-mc68k.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: pack-compiler-mc68k.scm,v 1.2 1993/11/23 20:59:58 cph Exp $
+$Id: pack-compiler-mc68k.scm,v 1.3 1994/05/03 04:50:32 cph Exp $
 
-Copyright (c) 1993 Massachusetts Institute of Technology
+Copyright (c) 1993-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -39,7 +39,7 @@ MIT in each case. |#
          '(RUNTIME LOAD)))
 
 (define (pack-compiler output)
-  (pack-binaries output
+  (pack-binaries (if (default-object? output) "lib/compdel.com" output)
                 '(("sf"
                    "make.com"
                    "sf.bcon"

diff --git a/etc/pack-compiler-mips.scm b/etc/pack-compiler-mips.scm
index 1652a44b1b4e5329dbda1e27745604d124d3aed4..7d70a6613242fea73cedf7082a4f4bb2294b9a1f 100644 (file)
--- a/etc/pack-compiler-mips.scm
+++ b/etc/pack-compiler-mips.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: pack-compiler-mips.scm,v 1.2 1993/11/23 21:00:53 cph Exp $
+$Id: pack-compiler-mips.scm,v 1.3 1994/05/03 04:50:33 cph Exp $
 
-Copyright (c) 1993 Massachusetts Institute of Technology
+Copyright (c) 1993-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -39,7 +39,7 @@ MIT in each case. |#
          '(RUNTIME LOAD)))
 
 (define (pack-compiler output)
-  (pack-binaries output
+  (pack-binaries (if (default-object? output) "lib/compdel.com" output)
                 '(("sf"
                    "make.com"
                    "sf.bcon"

diff --git a/etc/pack-compiler-spectrum.scm b/etc/pack-compiler-spectrum.scm
index de44cfeedb3e70315783fbe0607ada416d639754..d609a73337684df8aa69e493af1d1a60d47ca34b 100644 (file)
--- a/etc/pack-compiler-spectrum.scm
+++ b/etc/pack-compiler-spectrum.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: pack-compiler-spectrum.scm,v 1.1 1993/12/02 23:21:50 cph Exp $
+$Id: pack-compiler-spectrum.scm,v 1.2 1994/05/03 04:50:34 cph Exp $
 
-Copyright (c) 1993 Massachusetts Institute of Technology
+Copyright (c) 1993-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -39,7 +39,7 @@ MIT in each case. |#
          '(RUNTIME LOAD)))
 
 (define (pack-compiler output)
-  (pack-binaries output
+  (pack-binaries (if (default-object? output) "lib/compdel.com" output)
                 '(("sf"
                    "make.com"
                    "sf.bcon"

diff --git a/etc/pack-edwin-unix.scm b/etc/pack-edwin-unix.scm
index d8339d2e9a98c96af31264a30c85eb211ca28daf..cc442b580e8a0b4ac437636758c6b55f1d62c244 100644 (file)
--- a/etc/pack-edwin-unix.scm
+++ b/etc/pack-edwin-unix.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: pack-edwin-unix.scm,v 1.2 1993/11/23 21:01:10 cph Exp $
+$Id: pack-edwin-unix.scm,v 1.3 1994/05/03 04:50:35 cph Exp $
 
-Copyright (c) 1993 Massachusetts Institute of Technology
+Copyright (c) 1993-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -38,8 +38,8 @@ MIT in each case. |#
     (load (merge-pathnames "pack" (directory-pathname (current-load-pathname)))
          '(RUNTIME LOAD)))
 
-(define (pack-edwin output)
-  (pack-binaries output
+(define (pack-edwin #!optional output)
+  (pack-binaries (if (default-object? output) "lib/eddel.com" output)
                 '(("edwin"
                    "make.com"
                    "edwin.bcon"