From 73c6dcf2d8d5633c2e945cb359f9423226124984 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 23 Nov 1993 21:01:10 +0000 Subject: [PATCH] Add automatic loading of "pack.scm". --- etc/pack-compiler-mc68k.scm | 6 +++++- etc/pack-compiler-mips.scm | 6 +++++- etc/pack-edwin-unix.scm | 6 +++++- 3 files changed, 15 insertions(+), 3 deletions(-) diff --git a/etc/pack-compiler-mc68k.scm b/etc/pack-compiler-mc68k.scm index 6de353c0e..1f4611d12 100644 --- 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 +(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 d4c19b3c1..1652a44b1 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.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 +(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 83446fe43..d8339d2e9 100644 --- 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 +(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" -- 2.25.1