summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--geiser-guile.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/geiser-guile.el b/geiser-guile.el
index e066536..6a5bd40 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -142,7 +142,8 @@ effect on new REPLs. For existing ones, use the command
(defvar geiser-guile--conn-address nil)
(defun geiser-guile--get-connection-address (&optional new)
- "The path to the UNIX socket to talk to Guile in a connection."
+ "The path to the UNIX socket to talk to Guile in a connection.
+Unused for now."
(when new
(setq geiser-guile--conn-address (make-temp-name "/tmp/geiser-guile-")))
geiser-guile--conn-address)
@@ -152,10 +153,12 @@ effect on new REPLs. For existing ones, use the command
This function uses `geiser-guile-init-file' if it exists."
(let ((init-file (and (stringp geiser-guile-init-file)
(expand-file-name geiser-guile-init-file)))
- (q-flags (and (not geiser-guile-load-init-file-p) '("-q")))
- (cflag (format "--listen=%s" (geiser-guile--get-connection-address t))))
+ (c-flags (when geiser-guile--conn-address
+ `(,(format "--listen=%s"
+ (geiser-guile--get-connection-address t)))))
+ (q-flags (and (not geiser-guile-load-init-file-p) '("-q"))))
`(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
- ,@q-flags "-L" ,geiser-guile-scheme-dir ,cflag
+ ,@q-flags "-L" ,geiser-guile-scheme-dir ,@c-flags
,@(apply 'append (mapcar (lambda (p) (list "-L" p))
geiser-guile-load-path))
,@(and init-file (file-readable-p init-file) (list "-l" init-file)))))
@@ -482,7 +485,6 @@ See `geiser-guile-use-declarative-modules-p'."
(version-command geiser-guile--version)
(minimum-version geiser-guile-minimum-version)
(repl-startup geiser-guile--startup)
- (connection-address geiser-guile--get-connection-address)
(prompt-regexp geiser-guile--prompt-regexp)
(clean-up-output geiser-guile--clean-up-output)
(debugger-prompt-regexp geiser-guile--debugger-prompt-regexp)