summaryrefslogtreecommitdiff
path: root/elisp/geiser-compile.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-compile.el')
-rw-r--r--elisp/geiser-compile.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index c513606..903c570 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -65,7 +65,7 @@ With prefix, restart REPL before compiling the file."
(defun geiser-load-file (path)
"Load Scheme file."
(interactive "FScheme file: ")
- (geiser-compile--file-op (expand-file-name path) nil "Loading"))
+ (geiser-compile--file-op (file-local-name (expand-file-name path)) nil "Loading"))
(defun geiser-load-current-buffer (&optional restart-p)
"Load current Scheme file.