closed port causes SEGV

Create issue
Issue #8 resolved
Takashi Kato repo owner created an issue

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)

Comments (2)

  1. Log in to comment