diff options
Diffstat (limited to 'module/system/vm/program.scm')
-rw-r--r-- | module/system/vm/program.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm index 857c1f88e..bbb9ef712 100644 --- a/module/system/vm/program.scm +++ b/module/system/vm/program.scm @@ -57,9 +57,7 @@ (find-program-docstring (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")) +(define (program-properties program) (find-program-properties (program-code program))) (define (make-binding name boxed? index start end) |