From f2b3c205c3822bf1f100661912fca0a1e44b451f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 16 Nov 1990 01:11:44 +0000 Subject: [PATCH] Change to use new system-library pathname procedures. Requires runtim 14.103 or later. --- v7/src/edwin/paths.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/v7/src/edwin/paths.scm b/v7/src/edwin/paths.scm index c72199bdb..f747e5583 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.6 1990/11/16 01:07:24 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/paths.scm,v 1.7 1990/11/16 01:11:44 cph Rel $ Copyright (c) 1989, 1990 Massachusetts Institute of Technology @@ -49,6 +49,7 @@ MIT in each case. |# (define (edwin-tutorial-pathname) (bind-condition-handler (list error-type:open-file) (lambda (condition) + condition (editor-error "Unable to find TUTORIAL file")) (lambda () (system-library-pathname -- 2.25.1