From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Mon, 30 Jul 1990 23:16:25 +0000 (+0000)
Subject: Make Ultrix and SunOS describe themeselves as such.
X-Git-Tag: 20090517-FFI~11281
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c55f8cdd3544a9fc007a079108af9afae84e42ac;p=mit-scheme.git

Make Ultrix and SunOS describe themeselves as such.
---

diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h
index 2b5981efa..4f990b017 100644
--- 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.6 1990/07/30 17:31:28 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.7 1990/07/30 23:16:25 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -202,7 +202,6 @@ extern void EXFUN (error_system_call, (int code, CONST char * name));
 
 #ifdef _BSD
 
-#define SYSTEM_VARIANT "BSD"
 #define HAVE_FIONREAD
 #define HAVE_GETTIMEOFDAY
 #define HAVE_ITIMER
@@ -215,8 +214,14 @@ extern void EXFUN (error_system_call, (int code, CONST char * name));
 #define HAVE_UNIX_SOCKETS
 #define HAVE_VFORK
 
+#ifdef _ULTRIX
+#define SYSTEM_VARIANT "Ultrix"
+#endif
+
 #ifdef _SUNOS
 
+#define SYSTEM_VARIANT "SunOS"
+
 #include <sys/vadvise.h>
 #ifdef _SUNOS3
 #define USE_HOSTENT_ADDR
@@ -230,6 +235,10 @@ extern void EXFUN (error_system_call, (int code, CONST char * name));
 
 #endif /* _SUNOS */
 
+#ifndef SYSTEM_VARIANT
+#define SYSTEM_VARIANT "BSD"
+#endif
+
 #else /* not _BSD */
 #ifdef _HPUX