~ chicken-core (chicken-5) 3e6e91e63d294df598d7e251738f9262c9ed9e01
commit 3e6e91e63d294df598d7e251738f9262c9ed9e01
Author: Mario Domenech Goulart <mario.goulart@gmail.com>
AuthorDate: Mon Oct 8 11:11:35 2012 -0300
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Mon Oct 8 20:10:21 2012 +0200
types.db: stricter return types for read-line
Signed-off-by: felix <felix@call-with-current-continuation.org>
diff --git a/types.db b/types.db
index 2e37ea83..20fc7636 100644
--- a/types.db
+++ b/types.db
@@ -1276,7 +1276,7 @@
(read-buffered (#(procedure #:enforce) read-buffered (#!optional input-port) string))
(read-byte (#(procedure #:enforce) read-byte (#!optional input-port) *))
(read-file (#(procedure #:enforce) read-file (#!optional (or input-port string) (procedure (input-port) *) fixnum) list))
-(read-line (#(procedure #:enforce) read-line (#!optional input-port (or boolean fixnum)) *))
+(read-line (#(procedure #:enforce) read-line (#!optional input-port (or boolean fixnum)) (or eof string)))
(read-lines (#(procedure #:enforce) read-lines (#!optional (or input-port string) fixnum) (list-of string)))
(read-string (#(procedure #:enforce) read-string (#!optional * input-port) string))
(read-string! (#(procedure #:enforce) read-string! (fixnum string #!optional input-port fixnum) fixnum))
Trap