From 43ffb98591b3bfac6c53de7415b9323cd3f618f6 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Thu, 28 May 1992 18:41:15 +0000 Subject: [PATCH] Made directory rewriting understand devices. --- v7/src/runtime/infutl.scm | 14 ++++++++------ v7/src/runtime/site.scm.dos | 11 +++++------ v8/src/runtime/infutl.scm | 14 ++++++++------ 3 files changed, 21 insertions(+), 18 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index 85d2e1274..3d4342b1d 100644 --- 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 106df787c..ab182bbc8 100644 --- 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 9848857fe..6e509ad60 100644 --- 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) -- 2.25.1