forked from mirrors/org-mode
* lisp/ob-forth.el: Document all the function arguments.
(org-babel-execute:forth): Document the arguments. (org-babel-forth-session-execute): Add docstring.
This commit is contained in:
parent
20162f5a5c
commit
d96982f375
|
@ -45,7 +45,7 @@
|
||||||
"Default header arguments for forth code blocks.")
|
"Default header arguments for forth code blocks.")
|
||||||
|
|
||||||
(defun org-babel-execute:forth (body params)
|
(defun org-babel-execute:forth (body params)
|
||||||
"Execute a block of Forth code with org-babel.
|
"Execute Forth BODY according to PARAMS.
|
||||||
This function is called by `org-babel-execute-src-block'."
|
This function is called by `org-babel-execute-src-block'."
|
||||||
(if (string= "none" (cdr (assq :session params)))
|
(if (string= "none" (cdr (assq :session params)))
|
||||||
(error "Non-session evaluation not supported for Forth code blocks")
|
(error "Non-session evaluation not supported for Forth code blocks")
|
||||||
|
@ -55,6 +55,7 @@ This function is called by `org-babel-execute-src-block'."
|
||||||
(car (last all-results))))))
|
(car (last all-results))))))
|
||||||
|
|
||||||
(defun org-babel-forth-session-execute (body params)
|
(defun org-babel-forth-session-execute (body params)
|
||||||
|
"Execute Forth BODY in session defined via PARAMS."
|
||||||
(org-require-package 'forth-mode)
|
(org-require-package 'forth-mode)
|
||||||
(let ((proc (forth-proc))
|
(let ((proc (forth-proc))
|
||||||
(rx " \\(\n:\\|compiled\n\\|ok\n\\)")
|
(rx " \\(\n:\\|compiled\n\\|ok\n\\)")
|
||||||
|
|
Loading…
Reference in New Issue