[Chicken-users] with-output-to-file broken in 4.8.0.3

[Aleksej Saushev]

  Hello!

$ csi

CHICKEN
(c) 2008-2013, The Chicken Team
(c) 2000-2007, Felix L. Winkelmann
Version 4.8.0.3 (stability/4.8.0) (rev 091c3d9)
netbsd-unix-gnu-x86 [ manyargs dload ptables ]
compiled 2013-03-12 on aeryn.xorinia.dim (Darwin)

; loading /home/asau/.csirc ...
; loading /usr/pkg/lib/chicken/6/srfi-1.import.so ...
; loading library srfi-1 ...
#;1> (let loop ((n 10)) (if (= n 0) #t (loop (- n 1))))
#t
#;2> (with-output-to-file "/tmp/test" (let loop ((n 10)) (if (= n 0) #t (loop 
(- n 1)))))

Error: (call-with-values) bad argument type: #t

        Call history:

        <eval>    (= n 0)
        <eval>    (loop (- n 1))
        <eval>    (- n 1)
        <eval>    (= n 0)
        <eval>    (loop (- n 1))
        <eval>    (- n 1)
        <eval>    (= n 0)
        <eval>    (loop (- n 1))
        <eval>    (- n 1)
        <eval>    (= n 0)
        <eval>    (loop (- n 1))
        <eval>    (- n 1)
        <eval>    (= n 0)
        <eval>    (loop (- n 1))
        <eval>    (- n 1)
        <eval>    (= n 0)       <--


???


-- 
BCE HA MOPE!