diff options
| -rw-r--r-- | elisp/geiser-compile.el | 2 | ||||
| -rw-r--r-- | elisp/geiser-guile.el | 3 |
2 files changed, 2 insertions, 3 deletions
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))))) |