(begin (let ((f (my-open-output-file "tmp1"))) (do-ec (:range n 10) (begin (write n f) (newline f))) (close-output-port f)) (my-call-with-input-file "tmp1" (lambda (port) (list-ec (:port x port read) x))))

Error: (line 11) invalid use of `.'

        Call history:

        <eval>    (read-proc13323 port13322)
        <eval>    (not13324 (eof-object?13325 x))
        <eval>    (eof-object?13325 x)
        <eval>    (cons13305 x result13308)
        <eval>    (loop13330 (read-proc13323 port13322))
        <eval>    (read-proc13323 port13322)
        <eval>    (not13324 (eof-object?13325 x))
        <eval>    (eof-object?13325 x)
        <eval>    (cons13305 x result13308)
        <eval>    (loop13330 (read-proc13323 port13322))
        <eval>    (read-proc13323 port13322)
        <eval>    (not13324 (eof-object?13325 x))
        <eval>    (eof-object?13325 x)
        <eval>    (cons13305 x result13308)
        <eval>    (loop13330 (read-proc13323 port13322))
        <eval>    (read-proc13323 port13322)    <--
rules.make:660: recipe for target `check' failed
make[1]: *** [check] Error 70
make[1]: Leaving directory `/cygdrive/e/core'
GNUmakefile:54: recipe for target `check' failed
make: *** [check] Error 2