From bb97f5cdffe86d64d263879e7156869231b0f846 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 19 Nov 2013 09:05:17 -0700 Subject: [PATCH] rm redundant value/output splitting of lisp blocks * lisp/ob-lisp.el (org-babel-execute:lisp): The car/cadr are now taken previously in the function and need not be taken within the call to `org-babel-result-cond'. --- lisp/ob-lisp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ob-lisp.el b/lisp/ob-lisp.el index 3f156d025..07134895b 100644 --- a/lisp/ob-lisp.el +++ b/lisp/ob-lisp.el @@ -91,10 +91,10 @@ current directory string." (point-min) (point-max))))) (cdr (assoc :package params))))))) (org-babel-result-cond (cdr (assoc :result-params params)) - (car result) + result (condition-case nil - (read (org-babel-lisp-vector-to-list (cadr result))) - (error (cadr result))))) + (read (org-babel-lisp-vector-to-list result)) + (error result)))) (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (assoc :colnames params))) (org-babel-pick-name (cdr (assoc :rowname-names params))