From 6893f692259c0241049bf614147160c44dd4ba3e Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 3 Dec 2016 01:57:51 +0100 Subject: Bug fix: expanding file name at the right time We were expanding the path of files to be loaded at the wrong place in the wrong way. This should be better and address bug #196. --- elisp/geiser-compile.el | 2 +- elisp/geiser-guile.el | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el index 26aad16..e22907f 100644 --- a/elisp/geiser-compile.el +++ b/elisp/geiser-compile.el @@ -59,7 +59,7 @@ (defun geiser-load-file (path) "Load Scheme file." (interactive "FScheme file: ") - (geiser-compile--file-op path nil "Loading")) + (geiser-compile--file-op (expand-file-name path) nil "Loading")) (defun geiser-load-current-buffer () "Load current Scheme file." diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 0b71edf..dacca55 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -158,8 +158,7 @@ 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" (expand-file-name (car args)))) + ((load-file compile-file) (format ",geiser-load-file %s" (car args))) ((no-values) ",geiser-no-values") (t (format "ge:%s (%s)" proc (geiser-guile--linearize-args args))))) -- cgit v1.2.3