[Chicken-users] chicken does not compile anymore

[F. Wittenberger]

Hi all,

I just did a svn up and got a broken chicken compiler:

Error: bad argument count - received 3 but expected 2: #<procedure
(every pred404 ls405)>


I guess compiler.scm around line 413 the call to "every" looks
suspicious:


(define (walk-generic n class params subs)
      (let ((subs2 (map walk subs)))
        (if (every eq? subs subs2)
            n
            (make-node class params subs2) ) ) )

Just I don't understand what's going on her?

(every (lambda (s) (memq s subs)) subs2)  ??

ormap ??

/Jörg