From 05f2171f08440db1b647a4b525c91cedc9351c4d Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 10 Feb 1988 04:21:32 +0000 Subject: [PATCH] Add conditionalization for load parameters. --- v7/src/microcode/fasl.h | 7 ++++++- v8/src/microcode/fasl.h | 7 ++++++- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/v7/src/microcode/fasl.h b/v7/src/microcode/fasl.h index e4c0cd1bd..73922c220 100644 --- a/v7/src/microcode/fasl.h +++ b/v7/src/microcode/fasl.h @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasl.h,v 9.26 1988/02/06 20:40:26 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasl.h,v 9.27 1988/02/10 04:21:32 jinx Rel $ Contains information relating to the format of FASL files. The machine/opsys information is contained in config.h @@ -121,8 +121,13 @@ extern Boolean Open_Dump_File(), Close_Dump_File(); system can be built which reads the old format, but dumps the new one. */ +#ifndef FASL_READ_VERSION #define FASL_READ_VERSION FASL_FORMAT_VERSION +#endif + +#ifndef FASL_READ_SUBVERSION #define FASL_READ_SUBVERSION FASL_SUBVERSION +#endif /* These are for Bintopsb. They are the values of the oldest supported formats. diff --git a/v8/src/microcode/fasl.h b/v8/src/microcode/fasl.h index efd0989c9..f72e0deaa 100644 --- a/v8/src/microcode/fasl.h +++ b/v8/src/microcode/fasl.h @@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising, promotional, or sales literature without prior written consent from MIT in each case. */ -/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/fasl.h,v 9.26 1988/02/06 20:40:26 jinx Exp $ +/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/fasl.h,v 9.27 1988/02/10 04:21:32 jinx Rel $ Contains information relating to the format of FASL files. The machine/opsys information is contained in config.h @@ -121,8 +121,13 @@ extern Boolean Open_Dump_File(), Close_Dump_File(); system can be built which reads the old format, but dumps the new one. */ +#ifndef FASL_READ_VERSION #define FASL_READ_VERSION FASL_FORMAT_VERSION +#endif + +#ifndef FASL_READ_SUBVERSION #define FASL_READ_SUBVERSION FASL_SUBVERSION +#endif /* These are for Bintopsb. They are the values of the oldest supported formats. -- 2.25.1