From 27e2174d92fe669cc7887aa85973a356495fbb75 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 8 Feb 2009 14:16:05 +0100 Subject: Capturing output of scheme evaluations --- elisp/geiser-eval.el | 1 + 1 file changed, 1 insertion(+) (limited to 'elisp/geiser-eval.el') diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index 5369a1f..68ef1ca 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -108,6 +108,7 @@ (defsubst geiser-eval--retort-p (ret) (and (listp ret) (or (assoc 'error ret) (assoc 'result ret)))) (defsubst geiser-eval--retort-result (ret) (cdr (assoc 'result ret))) +(defsubst geiser-eval--retort-output (ret) (cdr (assoc 'output ret))) (defsubst geiser-eval--retort-error (ret) (cdr (assoc 'error ret))) (defsubst geiser-eval--error-key (err) (cdr (assoc 'key err))) -- cgit v1.2.3