From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 3 May 1994 04:50:35 +0000 (+0000)
Subject: Supply default arguments for PACK-COMPILER and PACK-EDWIN.
X-Git-Tag: 20090517-FFI~7183
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2959445dc6079b53a7b8bbcda4d0d3495c11e07c;p=mit-scheme.git

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

diff --git a/etc/pack-compiler-alpha.scm b/etc/pack-compiler-alpha.scm
index 5435e24ae..510225974 100644
--- 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 1f4611d12..3634c6be0 100644
--- 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 1652a44b1..7d70a6613 100644
--- 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 de44cfeed..d609a7333 100644
--- 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 d8339d2e9..cc442b580 100644
--- 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"