Bug in (read-line)

[forcer <forcer@mindless.com>]

guile> (define p (pipe))
guile> (write-line "foo" (cdr p))
guile> (force-output (cdr p))
guile> (read-line (car p))
Aborted
forcer@forcix:~$ guile
guile> (define p (pipe))
guile> (write-line "foo" (cdr p))
guile> (force-output (cdr p))
guile> (read (car p))
foo

And the peek-char bug i posted lately is still present.

When is the new ports system going to be released?

	-forcer

-- 
((email . "forcer@mindless.com")       (www . "http://webserver.de/forcer/")
 (irc   . "forcer@#StarWars (IRCnet)") (pgp . "key available on my website"))