From 07a31d362473aec3d235dcb14febd229c502ae71 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 1 Mar 2001 04:59:33 +0000 Subject: [PATCH] Fix thinko in previous edit. --- v7/src/edwin/paths.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/edwin/paths.scm b/v7/src/edwin/paths.scm index 5b2b873c3..a14b9479c 100644 --- a/v7/src/edwin/paths.scm +++ b/v7/src/edwin/paths.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: paths.scm,v 1.15 2001/02/28 14:56:13 cph Exp $ +$Id: paths.scm,v 1.16 2001/03/01 04:59:33 cph Exp $ Copyright (c) 1989-2001 Massachusetts Institute of Technology @@ -24,9 +24,9 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (declare (usual-integrations)) (define (edwin-library-directory-pathname envvar name required?) - (let ((name (get-environment-variable envvar))) - (if name - (pathname-as-directory (merge-pathnames name)) + (let ((envval (get-environment-variable envvar))) + (if envval + (pathname-as-directory (merge-pathnames envval)) (or (system-library-directory-pathname (merge-pathnames name (pathname-as-directory "edwin"))) (and required? -- 2.25.1