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