Handle remote file names in cmuscheme.el

* lisp/cmuscheme.el (scheme-load-file, scheme-compile-file): Use
'file-local-name' to handle file names on remote systems.
(Bug#79163)

Copyright-paperwork-exempt: yes

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 6528ac3fb7d..35198e79e73 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -416,7 +416,7 @@ in the next one.")
   (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
                                        (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(load \""
-                                            file-name
+                                            (file-local-name file-name)
                                             "\")\n")))
 
 (defun scheme-compile-file (file-name)
@@ -430,7 +430,7 @@ in the next one.")
   (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
                                        (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(compile-file \""
-                                            file-name
+                                            (file-local-name file-name)
                                             "\")\n")))