From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 Nov 1990 01:07:24 +0000 (+0000)
Subject: Change to use new system-library pathname procedures.  Requires runtim
X-Git-Tag: 20090517-FFI~11038
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7cf3264ef7f683e24352e92d2c474cf872a33e8c;p=mit-scheme.git

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

diff --git a/v7/src/edwin/paths.scm b/v7/src/edwin/paths.scm
index c52d4243c..c72199bdb 100644
--- a/v7/src/edwin/paths.scm
+++ b/v7/src/edwin/paths.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$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 $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/paths.scm,v 1.6 1990/11/16 01:07:24 cph Exp $
 
 Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
@@ -39,14 +39,18 @@ MIT in each case. |#
 (define (edwin-binary-directory)
   (system-library-directory-pathname
    (merge-pathnames (string->pathname "autoload")
-		    (string->pathname "edwin"))))
+		    (pathname-as-directory (string->pathname "edwin")))))
 
 (define (edwin-info-directory)
   (system-library-directory-pathname
    (merge-pathnames (string->pathname "info")
-		    (string->pathname "edwin"))))
+		    (pathname-as-directory (string->pathname "edwin")))))
 
 (define (edwin-tutorial-pathname)
-  (system-library-pathname
-   (merge-pathnames (string->pathname "TUTORIAL")
-		    (string->pathname "edwin"))))
\ No newline at end of file
+  (bind-condition-handler (list error-type:open-file)
+      (lambda (condition)
+	(editor-error "Unable to find TUTORIAL file"))
+    (lambda ()
+      (system-library-pathname
+       (merge-pathnames (string->pathname "TUTORIAL")
+			(pathname-as-directory (string->pathname "edwin")))))))
\ No newline at end of file