* module/system/base/compile.scm (next-pass): Add doc.
(compute-compiler, read-and-compile, compile): Likewise.
---
module/system/base/compile.scm | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index f7e82404e..2468d1dab 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -232,6 +232,9 @@
(proc (proc optimization-level opts))))
(define (next-pass from lang to optimization-level opts)
+ "Return a pair containing the next target language name and its
+associated compilation procedure (pass) required to compile LANG from
+FROM to TO."
(if (eq? lang to)
#f ;; Done.
(match (language-compilers lang)
@@ -248,6 +251,11 @@
(cons (lookup-language name) pass))))))))
(define (compute-compiler from to optimization-level warning-level opts)
+ "Return a procedure accepting an EXP and ENV arguments that lookup and
+invoke the necessary compiler(s) to compile EXP from FROM to TO. The
+returned procedure returns the compiled expression (exp), the
+environment (env) as well as a continuation environment (cenv) as
+multiple values."
(let ((from (ensure-language from))
(to (ensure-language to)))
(let lp ((lang from))
@@ -302,6 +310,8 @@
(optimization-level (default-optimization-level))
(warning-level (default-warning-level))
(opts '()))
+ "Return the compiled bytevector (or the format of the chosen TO target
+language) of the source read from PORT."
(let* ((from (ensure-language from))
(to (ensure-language to))
(joint (find-language-joint from to optimization-level opts)))
@@ -346,6 +356,7 @@
(optimization-level (default-optimization-level))
(warning-level (default-warning-level))
(opts '()))
+ "Return the compiled bytecode of X, an expression."
(validate-options opts)
(let ((compile1 (compute-compiler from to optimization-level
warning-level opts)))
base-commit: 779a83d9c682345802f9a605cb8e2b4892129316
--
2.41.0
