~ 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