Rename internal rtl-program-properties -> program-properties

[bpt/guile.git] / module / system / vm / program.scm

diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 857c1f8..bbb9ef7 100644 (file)
--- 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)