diff options
Diffstat (limited to 'module/system/vm/program.scm')
-rw-r--r-- | module/system/vm/program.scm | 6 |
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")) |