summaryrefslogtreecommitdiff
path: root/elisp/geiser-compile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-07 03:20:43 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-07 03:20:43 +0100
commitae3f3fcbe03181e8b673cd527d557b4e734359ad (patch)
tree54fa31e74f8103c36fef9b67a75ee81bab3bbd50 /elisp/geiser-compile.el
parent7255bae6c221b985a40f440356c9143ddfa2e236 (diff)
downloadgeiser-ae3f3fcbe03181e8b673cd527d557b4e734359ad.tar.gz
geiser-ae3f3fcbe03181e8b673cd527d557b4e734359ad.tar.bz2
Accepting ~ in geiser-add-to-load-path
Diffstat (limited to 'elisp/geiser-compile.el')
-rw-r--r--elisp/geiser-compile.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index 2f8fa5e..521803e 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -1,6 +1,6 @@
;; geiser-compile.el -- compile/load scheme files
-;; Copyright (C) 2009, 2010, 2011, 2012 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2013 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -72,7 +72,7 @@
When called interactively, this function will ask for the path to
add, defaulting to the current buffer's directory."
(interactive "DDirectory to add: ")
- (let* ((c `(:eval (:ge add-to-load-path ,path)))
+ (let* ((c `(:eval (:ge add-to-load-path ,(expand-file-name path))))
(r (geiser-eval--send/result c)))
(message "%s" (if r "Added" "Failed!"))))