branch: elpa/geiser-guile
commit b57f4bb08c3375e21ae55e7d64b80d6bdecab897
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Make guile's load-file happier with ~ abrevs
An attempt to address #194.
---
elisp/geiser-guile.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index dacca55..0b71edf 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -158,7 +158,8 @@ This function uses `geiser-guile-init-file' if it exists."
(or (car args) "#f")
(geiser-guile--linearize-args (cdr args))
(if (cddr args) "" " ()")))
- ((load-file compile-file) (format ",geiser-load-file %s" (car args)))
+ ((load-file compile-file)
+ (format ",geiser-load-file %s" (expand-file-name (car args))))
((no-values) ",geiser-no-values")
(t (format "ge:%s (%s)" proc (geiser-guile--linearize-args args)))))
