#! /bin/sh
#| -*- scheme -*-
exec csi -s $0 "$@"
|#

(use r7rs)

(let* ((p (open-input-string "a"))
       (first-read (read-char p))
       (second-read (read-char p))
       (third-read (read-string 5 p)))
  (display "first-read=") (write first-read) (newline)
  (display "second-read=") (write second-read) (newline)
  (display "third-read=") (write third-read) (newline))



ponk% ./chicken-read-string-eof-test.scm
first-read=#\a
second-read=#!eof
third-read=""