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.scm6
1 files changed, 2 insertions, 4 deletions
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index d8f201c0b..857c1f88e 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -55,10 +55,8 @@
program-debug-info-name))
(define (program-documentation program)
(find-program-docstring (program-code program)))
-(define (rtl-program-minimum-arity program)
- (unless (program? program)
- (error "shouldn't get here"))
- (program-minimum-arity (program-code program)))
+(define (program-minimum-arity program)
+ (find-program-minimum-arity (program-code program)))
(define (rtl-program-properties program)
(unless (program? program)
(error "shouldn't get here"))