summaryrefslogtreecommitdiff
path: root/elisp/geiser-eval.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-11 03:01:33 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-11 03:01:33 +0100
commitdfc900c0e2f59edfb06bbdabfc4bcde172d6ced9 (patch)
treeff2937e287b418520e082d06907e5027601e4eee /elisp/geiser-eval.el
parent3db4017f11317c497fba0e97adb5fd1a18ca4534 (diff)
downloadgeiser-guile-dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9.tar.gz
geiser-guile-dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9.tar.bz2
Partial work (connections working)
Diffstat (limited to 'elisp/geiser-eval.el')
-rw-r--r--elisp/geiser-eval.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index 3534312..72093cc 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -119,11 +119,11 @@ module-exports, autodoc, callers, callees and generic-methods.")
;;; Code sending:
-(defvar geiser-eval--default-proc-function nil)
+(defvar geiser-eval--default-connection-function nil)
-(defsubst geiser-eval--proc ()
- (and geiser-eval--default-proc-function
- (funcall geiser-eval--default-proc-function)))
+(defsubst geiser-eval--connection ()
+ (and geiser-eval--default-connection-function
+ (funcall geiser-eval--default-connection-function)))
(defsubst geiser-eval--log (s)
(geiser-log--info "RETORT: %S" s)
@@ -138,7 +138,7 @@ module-exports, autodoc, callers, callees and generic-methods.")
(defun geiser-eval--send/wait (code &optional timeout buffer)
(setq geiser-eval--sync-retort nil)
- (geiser-con--send-string/wait (geiser-eval--proc)
+ (geiser-con--send-string/wait (geiser-eval--connection)
(geiser-eval--code-str code)
'geiser-eval--set-sync-retort
timeout