diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2008-04-14 21:25:17 +0100 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2008-04-16 00:13:40 +0100 |
commit | ee9e3a93f7c67f94d8cc7a748861cb7880fdaab2 (patch) | |
tree | 2feea29eb265365a6ea1710c5b575c5e9fd8c22d /lang/elisp/internals | |
parent | b1860cb3429e8b4f71d414e79c89400f18dff569 (diff) | |
download | guile-ee9e3a93f7c67f94d8cc7a748861cb7880fdaab2.tar.gz |
A few elisp fixes and enhancements
Diffstat (limited to 'lang/elisp/internals')
-rw-r--r-- | lang/elisp/internals/load.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lang/elisp/internals/load.scm b/lang/elisp/internals/load.scm index e55c8b50f..2b6cac36f 100644 --- a/lang/elisp/internals/load.scm +++ b/lang/elisp/internals/load.scm @@ -15,9 +15,8 @@ '("") load-path))) (cond ((null? dirs) #f) - ((file-exists? (string-append (car dirs) - filename)) - (string-append (car dirs) filename)) + ((file-exists? (in-vicinity (car dirs) filename)) + (in-vicinity (car dirs) filename)) (else (loop (cdr dirs))))))) (if pathname (begin |