~ chicken-core (chicken-5) 92e176c19696339c2817ab662f0e45a486a6ef1b
commit 92e176c19696339c2817ab662f0e45a486a6ef1b Author: felix <felix@call-with-current-continuation.org> AuthorDate: Sat May 22 00:15:34 2010 +0200 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Sat May 22 00:15:34 2010 +0200 types.db fixes for call-with-input/output-file diff --git a/types.db b/types.db index d8318400..c00375ae 100644 --- a/types.db +++ b/types.db @@ -191,8 +191,8 @@ (output-port? (procedure output-port? (*) boolean)) (current-input-port (procedure current-input-port (#!optional port) port)) (current-output-port (procedure current-output-port (#!optional port) port)) -(call-with-input-file (procedure call-with-input-file (string (procedure (port) . *)) . *)) -(call-with-output-file (procedure call-with-output-file (string (procedure (port) . *)) . *)) +(call-with-input-file (procedure call-with-input-file (string (procedure (port) . *) #!rest) . *)) +(call-with-output-file (procedure call-with-output-file (string (procedure (port) . *) #!rest) . *)) (open-input-file (procedure open-input-file (string #!rest symbol) port)) (open-output-file (procedure open-output-file (string #!rest symbol) port)) (close-input-port (procedure close-input-port (port) undefined))Trap