diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-10-24 20:00:02 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-10-24 20:00:02 -0600 |
commit | 2429e834915a11b58c85f18488976e274d6ce387 (patch) | |
tree | 047c328d8ed8a0a21bee51e29c3664d1479784b2 | |
parent | 47e27c28b6dee38ce96829bdab9a1e2ab1960e90 (diff) | |
download | org-mode-2429e834915a11b58c85f18488976e274d6ce387.tar.gz |
ob-shen: fix two compilation errors
* lisp/ob-shen.el (org-babel-execute:shen): Fix two compilation
errors.
-rw-r--r-- | lisp/ob-shen.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob-shen.el b/lisp/ob-shen.el index 3917deb..ccf3030 100644 --- a/lisp/ob-shen.el +++ b/lisp/ob-shen.el @@ -63,13 +63,14 @@ This function is called by `org-babel-execute-src-block'" (require 'inf-shen) (let* ((result-type (cdr (assoc :result-type params))) + (result-params (cdr (assoc :result-params params))) (full-body (org-babel-expand-body:shen body params))) ((lambda (results) (if (or (member 'scalar result-params) (member 'verbatim result-params)) results (condition-case nil (org-babel-script-escape results) - (error result)))) + (error results)))) (with-temp-buffer (insert full-body) (call-interactively #'shen-eval-defun))))) |