summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-04-06 10:52:04 -0600
committerEric Schulte <schulte.eric@gmail.com>2013-04-06 11:39:23 -0600
commit92e32755fd89f0fd7782f4537d9f26b7ee25cbda (patch)
tree583e0a49cc44acfd6a2f795e283584935d24a3b8
parentf58889f0c127fb6f3e3cd02da2e758678eed2ba3 (diff)
downloadorg-mode-92e32755fd89f0fd7782f4537d9f26b7ee25cbda.tar.gz
use org-babel-result-cond in scheme code blocks
* lisp/ob-scheme.el (org-babel-execute:scheme): Use org-babel-result-cond in scheme code blocks.
-rw-r--r--lisp/ob-scheme.el48
1 files changed, 25 insertions, 23 deletions
diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el
index c9fa44a..89dd003 100644
--- a/lisp/ob-scheme.el
+++ b/lisp/ob-scheme.el
@@ -72,29 +72,31 @@ This function is called by `org-babel-execute-src-block'"
(let* ((result-type (cdr (assoc :result-type params)))
(org-babel-scheme-cmd (or (cdr (assoc :scheme params))
org-babel-scheme-cmd))
- (full-body (org-babel-expand-body:scheme body params)))
- (read
- (if (not (string= (cdr (assoc :session params)) "none"))
- ;; session evaluation
- (let ((session (org-babel-prep-session:scheme
- (cdr (assoc :session params)) params)))
- (org-babel-comint-with-output
- (session (format "%S" org-babel-scheme-eoe) t body)
- (mapc
- (lambda (line)
- (insert (org-babel-chomp line)) (comint-send-input nil t))
- (list body (format "%S" org-babel-scheme-eoe)))))
- ;; external evaluation
- (let ((script-file (org-babel-temp-file "scheme-script-")))
- (with-temp-file script-file
- (insert
- ;; return the value or the output
- (if (string= result-type "value")
- (format "(display %s)" full-body)
- full-body)))
- (org-babel-eval
- (format "%s %s" org-babel-scheme-cmd
- (org-babel-process-file-name script-file)) ""))))))
+ (full-body (org-babel-expand-body:scheme body params))
+ (result (if (not (string= (cdr (assoc :session params)) "none"))
+ ;; session evaluation
+ (let ((session (org-babel-prep-session:scheme
+ (cdr (assoc :session params)) params)))
+ (org-babel-comint-with-output
+ (session (format "%S" org-babel-scheme-eoe) t body)
+ (mapc
+ (lambda (line)
+ (insert (org-babel-chomp line))
+ (comint-send-input nil t))
+ (list body (format "%S" org-babel-scheme-eoe)))))
+ ;; external evaluation
+ (let ((script-file (org-babel-temp-file "scheme-script-")))
+ (with-temp-file script-file
+ (insert
+ ;; return the value or the output
+ (if (string= result-type "value")
+ (format "(display %s)" full-body)
+ full-body)))
+ (org-babel-eval
+ (format "%s %s" org-babel-scheme-cmd
+ (org-babel-process-file-name script-file)) "")))))
+ (org-babel-result-cond (cdr (assoc :result-params params))
+ result (read result))))
(defun org-babel-prep-session:scheme (session params)
"Prepare SESSION according to the header arguments specified in PARAMS."