Function: org-babel-expand-body:scheme

org-babel-expand-body:scheme is a byte-compiled function defined in ob-scheme.el.gz.

Signature

(org-babel-expand-body:scheme BODY PARAMS)

Documentation

Expand BODY according to PARAMS, return the expanded body.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ob-scheme.el.gz
(defun org-babel-expand-body:scheme (body params)
  "Expand BODY according to PARAMS, return the expanded body."
  (let ((vars (org-babel--get-vars params))
	(prepends (cdr (assq :prologue params)))
	(postpends (cdr (assq :epilogue params))))
    (concat (and prepends (concat prepends "\n"))
	    (if (null vars) body
	      (format "(let (%s)\n%s\n)"
		      (mapconcat
		       (lambda (var)
			 (format "%S" (print `(,(car var) ',(cdr var)))))
		       vars
		       "\n      ")
		      body))
	    (and postpends (concat "\n" postpends)))))