closed port causes SEGV

[Takashi Kato]

This script should print ok.

(import (scheme base)(scheme file))
((call-with-input-file "test.scm"
   (lambda(p)
     (lambda()
       (do ((i 0 (+ i 1)))
       ((= i 10))
     (read-char p))))))
(print 'ok)

[Takashi Kato]

Fixed by 91e949b

[Takashi Kato]

Added closed port check to read-char, peek-char, read and write-char. Fixes #8

→ <<cset 91e949bebc22>>