From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 2 Dec 1994 16:42:11 +0000 (+0000)
Subject: I exported *pp-auto-highlighter*
X-Git-Tag: 20090517-FFI~6905
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=520cd2006505378fd2b7dd099f67ecae341ee817;p=mit-scheme.git

I exported *pp-auto-highlighter*
cph did something for os2.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 327ac5eb0..3fa82b7bf 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.237 1994/11/20 08:45:11 cph Exp $
+$Id: runtime.pkg,v 14.238 1994/12/02 16:42:11 adams Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -55,6 +55,7 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxprm")
     ((dos nt) "dosprm")
+    ((os/2) "os2prm")
     (else)))
 
 (define-package (package)
@@ -450,6 +451,7 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxdir")
     ((dos nt) "dosdir")
+    ((os/2) "os2dir")
     ;;(else "unkdir")
     (else))
   (parent ())
@@ -1569,19 +1571,10 @@ MIT in each case. |#
    (else))
   (initialization (initialize-package!)))
 
-;; DOS and NT pathanme packages present in both to allow band sharing.
-
 (define-package (runtime pathname dos)
   (parent (runtime pathname))
   (file-case os-type
-   ((dos nt) "dospth")
-   (else))
-  (initialization (initialize-package!)))
-
-(define-package (runtime pathname nt)
-  (parent (runtime pathname))
-  (file-case os-type
-   ((nt dos) "ntpth")
+   ((dos nt os/2) "dospth")
    (else))
   (initialization (initialize-package!)))
 
@@ -1603,6 +1596,7 @@ MIT in each case. |#
   (files "pp")
   (parent ())
   (export ()
+	  *pp-auto-highlighter*
 	  *pp-avoid-circularity?*
 	  *pp-default-as-code?*
 	  *pp-forced-x-size*
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 327ac5eb0..3fa82b7bf 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.237 1994/11/20 08:45:11 cph Exp $
+$Id: runtime.pkg,v 14.238 1994/12/02 16:42:11 adams Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -55,6 +55,7 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxprm")
     ((dos nt) "dosprm")
+    ((os/2) "os2prm")
     (else)))
 
 (define-package (package)
@@ -450,6 +451,7 @@ MIT in each case. |#
   (file-case os-type
     ((unix) "unxdir")
     ((dos nt) "dosdir")
+    ((os/2) "os2dir")
     ;;(else "unkdir")
     (else))
   (parent ())
@@ -1569,19 +1571,10 @@ MIT in each case. |#
    (else))
   (initialization (initialize-package!)))
 
-;; DOS and NT pathanme packages present in both to allow band sharing.
-
 (define-package (runtime pathname dos)
   (parent (runtime pathname))
   (file-case os-type
-   ((dos nt) "dospth")
-   (else))
-  (initialization (initialize-package!)))
-
-(define-package (runtime pathname nt)
-  (parent (runtime pathname))
-  (file-case os-type
-   ((nt dos) "ntpth")
+   ((dos nt os/2) "dospth")
    (else))
   (initialization (initialize-package!)))
 
@@ -1603,6 +1596,7 @@ MIT in each case. |#
   (files "pp")
   (parent ())
   (export ()
+	  *pp-auto-highlighter*
 	  *pp-avoid-circularity?*
 	  *pp-default-as-code?*
 	  *pp-forced-x-size*