Change to use new system-library pathname procedures. Requires runtim

14.103 or later.

diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index ddca76c2faee90e630d170131c5e0b8dfdf44386..a805564b7a47965f5fdfd8df77508be1a32c6e43 100644 (file)
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.23 1990/11/09 08:56:28 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/make.scm,v 3.24 1990/11/15 23:32:46 cph Rel $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -37,4 +37,4 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "edwin" '() 'QUERY)
-(add-system! (make-system "Edwin" 3 23 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 24 '()))
\ No newline at end of file

diff --git a/v7/src/edwin/paths.scm b/v7/src/edwin/paths.scm
index f7031ea12710443c9280cc3633e090c7ac196508..c52d4243cdeadf14bd33443a5154bb55e6cba92d 100644 (file)
--- a/v7/src/edwin/paths.scm
+++ b/v7/src/edwin/paths.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/paths.scm,v 1.4 1989/08/03 23:33:15 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/paths.scm,v 1.5 1990/11/15 23:32:54 cph Exp $
 
-Copyright (c) 1989 Massachusetts Institute of Technology
+Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -37,20 +37,16 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (define (edwin-binary-directory)
-  (pathname-as-directory
+  (system-library-directory-pathname
    (merge-pathnames (string->pathname "autoload")
-                   (edwin-library-directory-pathname))))
+                   (string->pathname "edwin"))))
 
 (define (edwin-info-directory)
-  (pathname-as-directory
+  (system-library-directory-pathname
    (merge-pathnames (string->pathname "info")
-                   (edwin-library-directory-pathname))))
+                   (string->pathname "edwin"))))
 
 (define (edwin-tutorial-pathname)
-  (merge-pathnames (string->pathname "TUTORIAL")
-                  (edwin-library-directory-pathname)))
-
-(define (edwin-library-directory-pathname)
-  (pathname-as-directory
-   (merge-pathnames (string->pathname "edwin")
-                   (system-library-directory-pathname))))
\ No newline at end of file
+  (system-library-pathname
+   (merge-pathnames (string->pathname "TUTORIAL")
+                   (string->pathname "edwin"))))
\ No newline at end of file

diff --git a/v7/src/sicp/studen.scm b/v7/src/sicp/studen.scm
index bf083a52beed2b34c669703190123ad1d727c214..deb7053c6557bb8a3b7e34fb113378752aec3be4 100644 (file)
--- a/v7/src/sicp/studen.scm
+++ b/v7/src/sicp/studen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sicp/studen.scm,v 1.2 1990/11/14 14:58:18 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sicp/studen.scm,v 1.3 1990/11/15 23:33:36 cph Exp $
 
 Copyright (c) 1987, 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -455,9 +455,7 @@ MIT in each case. |#
   (set! student-band-pathname
        (merge-pathnames
         (make-pathname #f #f #f "sicp" "bin" #f)
-        (->pathname
-         (or ((make-primitive-procedure 'reload-band-name))
-             ((make-primitive-procedure 'microcode-tables-filename))))))
+        (system-library-directory-pathname false)))
   (add-event-receiver!
    event:after-restart
    (lambda ()