procedure-arity on vm-compile apply: verily, unresolved.

* test-suite/tests/procprop.test ("procedure-arity"): Procedure-property
  'arity on "apply" will fail if "apply" is a program. I suggest that
  procedure-property is actually the wrong interface for this; if we even
  want to preseve the old arity forms, we should have an accessor for
  arity directly that the VM can implement. But in the meantime throw
  this nasty error while we decide.

diff --git a/test-suite/tests/procprop.test b/test-suite/tests/procprop.test
index 5ab5850..40e89c7 100644 (file)
--- a/test-suite/tests/procprop.test
+++ b/test-suite/tests/procprop.test
@@ -44,7 +44,9 @@
             '(1 0 #f)))
 
   (pass-if "apply"
-    (equal? (procedure-property apply 'arity)
+    (equal? (if ((@ (system vm program) program?) apply)
+                (throw 'unresolved)
+                (procedure-property apply 'arity))
             '(1 0 #t)))
 
   (pass-if "cons*"