[Chicken-users] Dynamic wind problem in with-input-from-file

[obscuroloconato]

I tried the following:

(define (ignore . args)
  (if #f #f))

(define (x)
  (call-with-current-continuation
   (lambda (return)
     (with-input-from-file "/etc/motd"
       (lambda ()
         (return (ignore)))))))

(ignore (x))

This maks csi reading the contents of /etc/motd as source input:

$ csi

CHICKEN
(c)2008-2011 The Chicken Team
(c)2000-2007 Felix L. Winkelmann
Version 4.7.0.3-st
linux-unix-gnu-x86 [ manyargs dload ptables ]
compiled 2011-12-09 on x (Linux)

#;1> (define (ignore . args)
  (if #f #f))
#;2> (define (x)
  (call-with-current-continuation
   (lambda (return)
     (with-input-from-file "/etc/motd"
       (lambda ()
         (return (ignore)))))))
#;3> (ignore (x))

Error: unbound variable:
------------------------------------------------------------------------------------------

Error: unbound variable: Red

Error: unbound variable: Hat

Error: unbound variable: Enterprise

Error: unbound variable: Linux

Error: unbound variable: Client

Error: unbound variable: release
5.5