ob-shen: fix two compilation errors

* lisp/ob-shen.el (org-babel-execute:shen): Fix two compilation
  errors.
This commit is contained in:
Eric Schulte 2011-10-24 20:00:02 -06:00
parent 47e27c28b6
commit 2429e83491
1 changed files with 2 additions and 1 deletions

View File

@ -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)))))