summaryrefslogtreecommitdiff
path: root/lang/elisp/internals
diff options
context:
space:
mode:
authorNeil Jerram <neil@ossau.uklinux.net>2008-04-14 21:25:17 +0100
committerNeil Jerram <neil@ossau.uklinux.net>2008-04-16 00:13:40 +0100
commitee9e3a93f7c67f94d8cc7a748861cb7880fdaab2 (patch)
tree2feea29eb265365a6ea1710c5b575c5e9fd8c22d /lang/elisp/internals
parentb1860cb3429e8b4f71d414e79c89400f18dff569 (diff)
downloadguile-ee9e3a93f7c67f94d8cc7a748861cb7880fdaab2.tar.gz
A few elisp fixes and enhancements
Diffstat (limited to 'lang/elisp/internals')
-rw-r--r--lang/elisp/internals/load.scm5
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