Changes for apollo.

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index 8cf047951fcef12a51ba04b680cd43a455dfe6aa..7131c4be039adb50ab54e0a85d6667b16295a0ee 100644 (file)
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.62 1991/08/24 02:15:56 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.63 1991/08/24 02:27:52 cph Exp $
 
 Copyright (c) 1987-91 Massachusetts Institute of Technology
 
@@ -499,8 +499,13 @@ typedef unsigned long SCHEME_OBJECT;
 #endif /* alliant */
 
 #ifdef apollo
+#if _ISP__M68K
 #define MACHINE_TYPE          "Apollo 68k"
 #define FASL_INTERNAL_FORMAT  FASL_APOLLO_68K
+#else
+#define MACHINE_TYPE          "Apollo Prism"
+#define FASL_INTERNAL_FORMAT  FASL_APOLLO_PRISM
+#endif
 #define b32
 #define HEAP_IN_LOW_MEMORY
 #define HAS_FLOOR

diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h
index 6f58a9afdbfe3626e67e54a5ac1ce6c5409f1791..3b422e722a50e554872229b5207cdfbfcecdcb0c 100644 (file)
--- a/v7/src/microcode/ux.h
+++ b/v7/src/microcode/ux.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.24 1991/08/12 22:16:02 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.25 1991/08/24 02:27:37 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -327,6 +327,11 @@ extern void EXFUN (error_system_call, (int code, enum syscall_names name));
 #define SYSTEM_VARIANT "NeXT"
 #endif
 
+#ifdef apollo
+#define SYSTEM_VARIANT "Domain"
+#undef S_IFIFO
+#endif
+
 #ifdef _SUNOS
 
 #define SYSTEM_VARIANT "SunOS"