From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 May 1991 20:22:35 +0000 (+0000)
Subject: Add procedures to manage new "etc" library directory.
X-Git-Tag: 20090517-FFI~10635
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ee51a6b1920b4ae5b607c4b154fe60ab49b53801;p=mit-scheme.git

Add procedures to manage new "etc" library directory.
---

diff --git a/v7/src/edwin/paths.scm b/v7/src/edwin/paths.scm
index 13a37ef2d..32ae35af5 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.8 1991/02/15 18:14:03 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/paths.scm,v 1.9 1991/05/07 20:22:35 cph Exp $
 
 Copyright (c) 1989-91 Massachusetts Institute of Technology
 
@@ -46,12 +46,17 @@ MIT in each case. |#
    (merge-pathnames (string->pathname "info")
 		    (pathname-as-directory (string->pathname "edwin")))))
 
+(define (edwin-etc-directory)
+  (system-library-directory-pathname
+   (merge-pathnames (string->pathname "etc")
+		    (pathname-as-directory (string->pathname "edwin")))))
+
+(define (edwin-etc-pathname filename)
+  (let ((pathname
+	 (merge-pathnames (->pathname filename) (edwin-etc-directory))))
+    (if (not (file-exists? pathname))
+	(editor-error "Unable to find file: " (pathname->string pathname)))
+    pathname))
+
 (define (edwin-tutorial-pathname)
-  (bind-condition-handler (list condition-type:open-file-error)
-      (lambda (condition)
-	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
+  (edwin-etc-pathname "TUTORIAL"))
\ No newline at end of file