Made directory rewriting understand devices.

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 85d2e127437a74c0e6b0101eb4c6b337ad1ca404..3d4342b1d78a8fce0cd494a8be3fdea40b2dfd8a 100644 (file)
--- a/v7/src/runtime/infutl.scm
+++ b/v7/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.37 1992/05/27 04:03:35 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.38 1992/05/28 18:40:00 mhwu Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -266,11 +266,13 @@ MIT in each case. |#
             (directory-prefix? (pathname-directory pathname)
                                (pathname-directory (car rule)))))))
     (if rule
-       (pathname-new-directory
-        pathname
-        (append (pathname-directory (cdr rule))
-                (list-tail (pathname-directory pathname)
-                           (length (pathname-directory (car rule))))))
+       (pathname-new-device
+        (pathname-new-directory
+         pathname
+         (append (pathname-directory (cdr rule))
+                 (list-tail (pathname-directory pathname)
+                            (length (pathname-directory (car rule))))))
+        (pathname-device (cdr rule)))
        pathname)))
 
 (define (directory-prefix? x y)

diff --git a/v7/src/runtime/site.scm.dos b/v7/src/runtime/site.scm.dos
index 106df787c03e8511d6c7650f2330c98ecb1f88c0..ab182bbc88d61b1f7424c0213b4500189eb8789e 100644 (file)
--- a/v7/src/runtime/site.scm.dos
+++ b/v7/src/runtime/site.scm.dos
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.dos,v 1.2 1992/05/27 17:46:07 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/site.scm.dos,v 1.3 1992/05/28 18:41:15 mhwu Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -49,10 +49,8 @@ MIT in each case. |#
               (->environment '(runtime compiler-info)))))
   (for-each
    (lambda (path)
-     (add-directory-rewriting-rule! path "/scheme/runtime"))
-   '("/scheme/runtime/scm/"
-     "/scheme/runtime/bin/"
-     "/scheme/runtime/com/")))
+     (add-directory-rewriting-rule! path "$mitscheme_inf_directory"))
+   '("/scheme/")))
 
 ;;; Dos specific:
 ;;; Timer hook to get interrupt keys
@@ -66,4 +64,5 @@ MIT in each case. |#
   (let ((sv (vector-ref
             (get-fixed-objects-vector)
             (fixed-objects-vector-slot 'SYSTEM-INTERRUPT-VECTOR))))
-    (vector-set! sv timer-slot typeahead-timer-interrupt)))
\ No newline at end of file
+    (vector-set! sv timer-slot typeahead-timer-interrupt))
+) ; End IN-PACKAGE
\ No newline at end of file

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index 9848857fe308378f340b7ef249c019e17a3f80e0..6e509ad600e377c082b5b9212699f21f157f5c75 100644 (file)
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.37 1992/05/27 04:03:35 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.38 1992/05/28 18:40:00 mhwu Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -266,11 +266,13 @@ MIT in each case. |#
             (directory-prefix? (pathname-directory pathname)
                                (pathname-directory (car rule)))))))
     (if rule
-       (pathname-new-directory
-        pathname
-        (append (pathname-directory (cdr rule))
-                (list-tail (pathname-directory pathname)
-                           (length (pathname-directory (car rule))))))
+       (pathname-new-device
+        (pathname-new-directory
+         pathname
+         (append (pathname-directory (cdr rule))
+                 (list-tail (pathname-directory pathname)
+                            (length (pathname-directory (car rule))))))
+        (pathname-device (cdr rule)))
        pathname)))
 
 (define (directory-prefix? x y)