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.scm4
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)