Fix arity selection in compute-contification
authorAndy Wingo <wingo@pobox.com>
Fri, 8 Nov 2013 09:59:52 +0000 (10:59 +0100)
committerAndy Wingo <wingo@pobox.com>
Fri, 8 Nov 2013 09:59:52 +0000 (10:59 +0100)
commitbe564260bef9b2d0f9df64affdbcf7e9b02507d2
treea24e882e06674a638a9a626f814010512e15e774
parent6a59420a9d5ed5a3ee054f9de5615c577d1ec651
Fix arity selection in compute-contification

* module/language/cps/contification.scm (compute-contification): Fail as
  soon as we see an arity with rest, optional, or keyword arguments.
  Fixes ((case-lambda ((a . b) #t) ((a b) #f)) 1 2).
module/language/cps/contification.scm