mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

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

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2009-03-13 23:55:51 +01:00 • committed by Andy Wingo
parent bb06fceef0
commit 1dcf33280d
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/procprop.test
View file

@ -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*"