From 8e8a08d2b9e6546b665cd317c34d2dbd82ec41cd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 15 Nov 1990 23:37:20 +0000 Subject: [PATCH] Change `system-library-directory-pathname' so that it signals an error if its argument is #F and none of the directories in the library path exist. --- v7/src/runtime/pathnm.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/pathnm.scm b/v7/src/runtime/pathnm.scm index 671e00fe3..0dd2dba98 100644 --- a/v7/src/runtime/pathnm.scm +++ b/v7/src/runtime/pathnm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pathnm.scm,v 14.8 1990/11/15 23:27:22 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pathnm.scm,v 14.9 1990/11/15 23:37:20 cph Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -435,8 +435,9 @@ See the files unkpth.scm, vmspth.scm, or unxpth.scm for examples.|# (if (not pathname) (let ((pathname (list-search-positive library-directory-path file-directory?))) - (and pathname - (pathname-as-directory pathname))) + (if (not pathname) + (error "can't find system library directory")) + (pathname-as-directory pathname)) (let loop ((directories library-directory-path)) (and (not (null? directories)) (let ((pathname (merge-pathnames pathname (car directories)))) -- 2.25.1