diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-06-01 06:32:10 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-06-01 06:32:10 -0600 |
commit | cbd4a5b7642400a8ef143edb64cd9aaa67d65d9e (patch) | |
tree | 49612de8178c1ad892a6da3a9ba86f399ea84d95 | |
parent | 1afcef30077b588ea0b8ec23b33f3680348cb46f (diff) | |
download | org-mode-cbd4a5b7642400a8ef143edb64cd9aaa67d65d9e.tar.gz |
ob-lisp: re-arrange order of function nesting in lisp execution function
* lisp/ob-lisp.el (org-babel-execute:lisp): No real functional change,
just aesthetic.
-rw-r--r-- | lisp/ob-lisp.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/ob-lisp.el b/lisp/ob-lisp.el index a875d55..a11a300 100644 --- a/lisp/ob-lisp.el +++ b/lisp/ob-lisp.el @@ -64,14 +64,14 @@ "Execute a block of Common Lisp code with Babel." (require 'slime) (org-babel-reassemble-table - (with-temp-buffer - (insert (org-babel-expand-body:lisp body params)) - ((lambda (result) - (if (member "output" (cdr (assoc :result-params params))) - (car result) - (condition-case nil - (read (org-bable-lisp-vector-to-list (cadr result))) - (error (cadr result))))) + ((lambda (result) + (if (member "output" (cdr (assoc :result-params params))) + (car result) + (condition-case nil + (read (org-bable-lisp-vector-to-list (cadr result))) + (error (cadr result))))) + (with-temp-buffer + (insert (org-babel-expand-body:lisp body params)) (slime-eval `(swank:eval-and-grab-output ,(format "(progn %s)" (buffer-substring-no-properties (point-min) (point-max)))) |