diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-11 03:01:33 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-11 03:01:33 +0100 |
| commit | dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9 (patch) | |
| tree | ff2937e287b418520e082d06907e5027601e4eee /elisp/geiser-eval.el | |
| parent | 3db4017f11317c497fba0e97adb5fd1a18ca4534 (diff) | |
| download | geiser-chez-dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9.tar.gz geiser-chez-dfc900c0e2f59edfb06bbdabfc4bcde172d6ced9.tar.bz2 | |
Partial work (connections working)
Diffstat (limited to 'elisp/geiser-eval.el')
| -rw-r--r-- | elisp/geiser-eval.el | 10 |
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 |