[nongnu] elpa/geiser-guile b57f4bb 258/284: Make guile's load-file happier with ~ abrevs

[Philip Kaludercic]

branch: elpa/geiser-guile
commit b57f4bb08c3375e21ae55e7d64b80d6bdecab897
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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)))))