mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 19:07:52 +00:00
ob-scheme: Handle :epilogue params
Hi all, This is a simple change that adds support for :epilogue in ob-scheme. Best wishes, Qian ========== * lisp/ob-scheme.el (org-babel-expand-body:scheme): Add :epilogue param support. TINYCHANGE
This commit is contained in:
parent
1a29c0eee8
commit
0eae7a5613
|
@ -71,7 +71,8 @@
|
|||
(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))))
|
||||
(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)"
|
||||
|
@ -80,7 +81,8 @@
|
|||
(format "%S" (print `(,(car var) ',(cdr var)))))
|
||||
vars
|
||||
"\n ")
|
||||
body)))))
|
||||
body))
|
||||
(and postpends (concat "\n" postpends)))))
|
||||
|
||||
|
||||
(defvar org-babel-scheme-repl-map (make-hash-table :test #'equal)
|
||||
|
|
Loading…
Reference in a new issue