summaryrefslogtreecommitdiff
path: root/module/system/vm/program.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/program.scm')
-rw-r--r--module/system/vm/program.scm9
1 files changed, 6 insertions, 3 deletions
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 68ebb84ef..f02fbe663 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -32,8 +32,12 @@
program-name
program-bindings program-bindings-by-index program-bindings-for-ip
- program-arities program-arguments program-lambda-list
-
+ program-arities program-arity arity:start arity:end
+
+ arity:nreq arity:nopt arity:rest? arity:kw arity:allow-other-keys?
+
+ program-arguments program-lambda-list
+
program-meta
program-objcode program? program-objects
program-module program-base program-free-variables))
@@ -112,7 +116,6 @@
(define (arity:allow-other-keys? a)
(pmatch a ((_ _ ,nreq ,nopt ,rest? (,aok . ,kw)) aok) (else #f)))
-;; not exported; should it be?
(define (program-arity prog ip)
(let ((arities (program-arities prog)))
(and arities