On Mon 13 Mar 2017 18:09, Arne Babenhauserheide <arne_...@web.de> writes:

> Here’s a shortened version:

Thanks.  Here's a shorter version :)

(call-with-input-string "A"
  (lambda (inport)
    (let ((nextchar (read-char inport)))
      (while (not (eof-object? nextchar))
        (pk nextchar)
        (set! nextchar (read-char inport))
        (continue)))))

Working on a fix.

Andy

Reply via email to