[chicken-users] something fishy with use of (every) in (match) expressions

[Leonardo Valeri Manera]

Try this in a fresh csi session (I'm running trunk):

#;1> (use match)
#;2> (match '("a" "b" "c") ((and args (or #f ((? atom? _) ...))) (print args)))

What I get is:

Error: unbound variable: every

        Call history:

        <syntax>                (##sys#match-error g1)
        <syntax>                (lambda (args) (print args))
        <syntax>                [g5] (begin (print args))
        <syntax>                [g5] (print args)
        <syntax>                (quote ("a" "b" "c"))
        <eval>          (equal? g1 #f)
        <eval>          (list? g1)
        <eval>          (every atom? g1)        <--


Elf tells me every is locally defined in match. Something ain't right! :D

Cheers,
Leo