add new rtl vm

[bpt/guile.git] / libguile / procprop.c

diff --git a/libguile/procprop.c b/libguile/procprop.c
index ff4648d..d37495b 100644 (file)
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -80,6 +80,14 @@ scm_i_procedure_arity (SCM proc, int *req, int *opt, int *rest)
              see.  */
           *req -= 1;
 
+          return 1;
+        }
+      else if (SCM_RTL_PROGRAM_P (proc))
+        {
+          *req = 0;
+          *opt = 0;
+          *rest = 1;
+
           return 1;
         }
       else