From 1dcf33280d39c7b7366eae1083a287e2dea6a8ca Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 13 Mar 2009 23:55:51 +0100 Subject: [PATCH] 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. --- test-suite/tests/procprop.test | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/procprop.test b/test-suite/tests/procprop.test index 5ab585058..40e89c792 100644 --- 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*"