From c920a7e8ae2886abac667a033adf7a34b45c74d2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 29 Jan 1993 16:42:08 +0000 Subject: [PATCH] Simplify FILE-CASE clauses -- otherwise CREF generates *two* entries for every binding in each duplicated file. --- v7/src/runtime/runtime.pkg | 8 +++----- v8/src/runtime/runtime.pkg | 8 +++----- 2 files changed, 6 insertions(+), 10 deletions(-) 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 ()) -- 2.25.1