diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-03-13 23:55:51 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@oblong.net> | 2009-03-17 16:46:43 +0100 |
| commit | 1dcf33280d39c7b7366eae1083a287e2dea6a8ca (patch) | |
| tree | d32061880a29490d4fb2ee36db0500beadece3a5 | |
| parent | bb06fceef02a20ce42b069192eb45ddd9012e5ab (diff) | |
| download | guile-1dcf33280d39c7b7366eae1083a287e2dea6a8ca.tar.gz | |
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.
| -rw-r--r-- | test-suite/tests/procprop.test | 4 |
1 files changed, 3 insertions, 1 deletions
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*" |