diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2013-11-19 09:05:17 -0700 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2013-11-19 09:06:25 -0700 |
| commit | bb97f5cdffe86d64d263879e7156869231b0f846 (patch) | |
| tree | e2090233f6a9cbe9af8edc305032c49bdd2260d9 | |
| parent | d35233f84a96c3ff7aedd142c5d84bbd383c81cf (diff) | |
| download | org-mode-bb97f5cdffe86d64d263879e7156869231b0f846.tar.gz | |
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'.
| -rw-r--r-- | lisp/ob-lisp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ob-lisp.el b/lisp/ob-lisp.el index 3f156d0..0713489 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)) |