From 95846056ed097c2730b9df89aeb23759f38657ba Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 4 May 1994 23:19:17 +0000 Subject: [PATCH] Fix think-o in previous change. --- etc/pack-compiler-alpha.scm | 4 ++-- etc/pack-compiler-mips.scm | 4 ++-- etc/pack-compiler-spectrum.scm | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/etc/pack-compiler-alpha.scm b/etc/pack-compiler-alpha.scm index 510225974..86d2ff327 100644 --- a/etc/pack-compiler-alpha.scm +++ b/etc/pack-compiler-alpha.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: pack-compiler-alpha.scm,v 1.2 1994/05/03 04:50:31 cph Exp $ +$Id: pack-compiler-alpha.scm,v 1.3 1994/05/04 23:19:17 cph Exp $ Copyright (c) 1993-94 Massachusetts Institute of Technology @@ -38,7 +38,7 @@ MIT in each case. |# (load (merge-pathnames "pack" (directory-pathname (current-load-pathname))) '(RUNTIME LOAD))) -(define (pack-compiler output) +(define (pack-compiler #!optional output) (pack-binaries (if (default-object? output) "lib/compdel.com" output) '(("sf" "make.com" diff --git a/etc/pack-compiler-mips.scm b/etc/pack-compiler-mips.scm index 7d70a6613..794333441 100644 --- a/etc/pack-compiler-mips.scm +++ b/etc/pack-compiler-mips.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: pack-compiler-mips.scm,v 1.3 1994/05/03 04:50:33 cph Exp $ +$Id: pack-compiler-mips.scm,v 1.4 1994/05/04 23:19:09 cph Exp $ Copyright (c) 1993-94 Massachusetts Institute of Technology @@ -38,7 +38,7 @@ MIT in each case. |# (load (merge-pathnames "pack" (directory-pathname (current-load-pathname))) '(RUNTIME LOAD))) -(define (pack-compiler output) +(define (pack-compiler #!optional output) (pack-binaries (if (default-object? output) "lib/compdel.com" output) '(("sf" "make.com" diff --git a/etc/pack-compiler-spectrum.scm b/etc/pack-compiler-spectrum.scm index d609a7333..0106408e5 100644 --- a/etc/pack-compiler-spectrum.scm +++ b/etc/pack-compiler-spectrum.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: pack-compiler-spectrum.scm,v 1.2 1994/05/03 04:50:34 cph Exp $ +$Id: pack-compiler-spectrum.scm,v 1.3 1994/05/04 23:19:03 cph Exp $ Copyright (c) 1993-94 Massachusetts Institute of Technology @@ -38,7 +38,7 @@ MIT in each case. |# (load (merge-pathnames "pack" (directory-pathname (current-load-pathname))) '(RUNTIME LOAD))) -(define (pack-compiler output) +(define (pack-compiler #!optional output) (pack-binaries (if (default-object? output) "lib/compdel.com" output) '(("sf" "make.com" -- 2.25.1