From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 29 Jan 1993 16:42:08 +0000 (+0000)
Subject: Simplify FILE-CASE clauses -- otherwise CREF generates *two* entries
X-Git-Tag: 20090517-FFI~8562
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c920a7e8ae2886abac667a033adf7a34b45c74d2;p=mit-scheme.git

Simplify FILE-CASE clauses -- otherwise CREF generates *two* entries
for every binding in each duplicated file.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 4dfdef429..67d53df6a 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.173 1993/01/29 00:09:09 adams Exp $
+$Id: runtime.pkg,v 14.174 1993/01/29 16:42:08 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -54,8 +54,7 @@ MIT in each case. |#
     (else))
   (file-case os-type
     ((unix) "unxprm")
-    ((dos) "dosprm")
-    ((nt) "dosprm")
+    ((dos nt) "dosprm")
     (else)))
 
 (define-package (package)
@@ -451,8 +450,7 @@ MIT in each case. |#
 (define-package (runtime directory)
   (file-case os-type
     ((unix) "unxdir")
-    ((dos) "dosdir")
-    ((nt) "dosdir")
+    ((dos nt) "dosdir")
     ;;(else "unkdir")
     (else))
   (parent ())
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 4dfdef429..67d53df6a 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.173 1993/01/29 00:09:09 adams Exp $
+$Id: runtime.pkg,v 14.174 1993/01/29 16:42:08 cph Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -54,8 +54,7 @@ MIT in each case. |#
     (else))
   (file-case os-type
     ((unix) "unxprm")
-    ((dos) "dosprm")
-    ((nt) "dosprm")
+    ((dos nt) "dosprm")
     (else)))
 
 (define-package (package)
@@ -451,8 +450,7 @@ MIT in each case. |#
 (define-package (runtime directory)
   (file-case os-type
     ((unix) "unxdir")
-    ((dos) "dosdir")
-    ((nt) "dosdir")
+    ((dos nt) "dosdir")
     ;;(else "unkdir")
     (else))
   (parent ())