[Chicken-users] loopy-loop

[Hugo Arregui]

Hi guys, I'm facing an unexpected behaviour using loopy-loop:

(loop lm ((m <- in-range-reverse 6 4 1))
      (print m)
      (lm))

shows 6,5 as expected, but:

(loop lm ((m <- in-range-reverse 6 4))
      (print m)
      (lm))

theoretically the same, but don't shows anything at all.

Also, this:

(loop lm ((m <- in-range 4))
      (print m)
      (lm))

is given me an error:

Error: during expansion of (%loop-next395 ...) - no rule matches form:
(%loop-next () ((m 0 4)) () () lm () () () () () () (print m) (lm))

        Call history:

        <eval>    (##sys#eq? (##sys#cdr temp363) (quote ()))
        <eval>    (##sys#cdr temp363)
        <eval>    (##sys#car tail362)
        <syntax>          [tmp31] (tmp3138 (#%+ m39 1))
        <syntax>          [tmp31] (#%+ m39 1)
        <syntax>          [run] (##core#let () (tmp31 6))
        <syntax>          [run] (##core#begin (tmp31 6))
        <syntax>          [run] (tmp31 6)
        <syntax>          [run] (##core#undefined)
        <syntax>          (loop lm ((m <- in-range 4)) (print m) (lm))  <--

Maybe it's a bug, o maybe i'm misunderstanding the docs.

Thanks,
Hugo.