Changeset 15601 in project


Ignore:
Timestamp:
08/28/09 14:18:16 (10 years ago)
Author:
felix
Message:

types.db fixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/types.db

    r15600 r15601  
    193193(call-with-input-file (procedure call-with-input-file (string (procedure (port) . *)) . *))
    194194(call-with-output-file (procedure call-with-output-file (string (procedure (port) . *)) . *))
    195 (open-input-file (procedure open-input-file (string) port))
    196 (open-output-file (procedure open-output-file (string) port))
     195(open-input-file (procedure open-input-file (string #!rest symbol) port))
     196(open-output-file (procedure open-output-file (string #!rest symbol) port))
    197197(close-input-port (procedure close-input-port (port) undefined))
    198198(close-output-port (procedure close-output-port (port) undefined))
     
    206206(write-char (procedure write-char (char #!optional port) undefined))
    207207(newline (procedure newline (#!optional port) undefined))
    208 (with-input-from-file (procedure with-input-from-file (string procedure #!optional symbol) . *))
    209 (with-output-to-file (procedure with-output-to-file (string procedure #!optional symbol) . *))
     208(with-input-from-file (procedure with-input-from-file (string procedure #!rest symbol) . *))
     209(with-output-to-file (procedure with-output-to-file (string procedure #!rest symbol) . *))
    210210(dynamic-wind (procedure dynamic-wind (procedure procedure procedure) . *))
    211211(values (procedure values (#!rest values) . *))
     
    719719(file-owner (procedure file-owner (string) fixnum))
    720720(file-permissions (procedure file-permissions (string) fixnum))
    721 (file-position (procedure file-position (string) fixnum))
     721(file-position (procedure file-position ((or port fixnum)) fixnum))
    722722(file-read (procedure file-read (fixnum fixnum #!optional *) list))
    723723(file-read-access? (procedure file-read-access? (string) boolean))
     
    808808(set-alarm! (procedure set-alarm! (number) number))
    809809(set-buffering-mode! (procedure set-buffering-mode! (port symbol #!optional fixnum) undefined))
     810(set-file-position! (procedure set-file-position! ((or port fixnum) fixnum #!optional fixnum) undefined))
    810811(set-groups! (procedure set-groups! (list) undefined))
    811812(set-root-directory! (procedure set-root-directory! (string) undefined))
Note: See TracChangeset for help on using the changeset viewer.