On Tue, 02 Jul 2013 21:56:01 +0400 Aleksej Saushev <[email protected]> wrote:
> $ 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) <-- > > > ??? with-output-to-file expects a thunk as second argument. Best wishes. Mario -- http://parenteses.org/mario _______________________________________________ Chicken-users mailing list [email protected] https://lists.nongnu.org/mailman/listinfo/chicken-users
