From 7cf3264ef7f683e24352e92d2c474cf872a33e8c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 16 Nov 1990 01:07:24 +0000 Subject: [PATCH] Change to use new system-library pathname procedures. Requires runtim 14.103 or later. --- v7/src/edwin/paths.scm | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) 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 -- 2.25.1