Changeset 15101 in project for chicken/branches/prerelease/types.db


Ignore:
Timestamp:
06/29/09 14:05:33 (10 years ago)
Author:
felix winkelmann
Message:

merged trunk changes from 14491:15100 into prerelease branch

Location:
chicken/branches/prerelease
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/prerelease

  • chicken/branches/prerelease/types.db

    r14954 r15101  
    246246(chicken-home (procedure chicken-home () string))
    247247(chicken-version (procedure chicken-version (#!optional *) string))
    248 (command-line-arguments (procedure command-line-arguments () list))
     248(command-line-arguments (procedure command-line-arguments (#!optional list) list))
    249249(condition-predicate (procedure condition-predicate (symbol) (procedure ((struct condition)) boolean)))
    250250(condition-property-accessor (procedure condition-property-accessor (symbol symbol #!optional *) (procedure ((struct condition)) *)))
     
    274274(features (procedure features () list))
    275275(file-exists? (procedure file-exists? (string) *))
     276(directory-exists? (procedure directory-exists? (string) *))
    276277(fixnum-bits fixnum)
    277278(fixnum-precision fixnum)
     
    360361(print* (procedure print* (#!rest) undefined))
    361362(procedure-information (procedure procedure-information (procedure) *))
    362 (program-name (procedure program-name () string))
     363(program-name (procedure program-name (#!optional string) string))
    363364(promise? (procedure promise? (*) boolean))
    364365(put! (procedure put! (symbol symbol *) undefined))
     
    368369(repl (procedure repl () undefined))
    369370(repl-prompt (procedure repl-prompt (#!optional procedure) procedure))
    370 (repository-path (procedure repository-path (#!optional *) string))
     371(repository-path (procedure repository-path (#!optional *) *))
    371372(require (procedure require (#!rest *) undefined))
    372373(reset (procedure reset () undefined))
     
    477478(randomize (procedure randomize (#!optional number) undefined))
    478479(read-byte (procedure read-byte (#!optional port) fixnum))
    479 (read-file (procedure read-file (#!optional port (procedure (port) *) fixnum) list))
     480(read-file (procedure read-file (#!optional (or port string) (procedure (port) *) fixnum) list))
    480481(read-line (procedure read-line (#!optional port fixnum) *))
    481 (read-lines (procedure read-lines (#!optional port fixnum) list))
     482(read-lines (procedure read-lines (#!optional (or port string) fixnum) list))
    482483(read-string (procedure read-string (#!optional * port) string))
    483484(read-string! (procedure read-string! (fixnum string #!optional port fixnum) fixnum))
     
    615616(call-with-output-string (procedure call-with-output-string ((procedure (port) . *)) string))
    616617(make-input-port (procedure make-input-port ((procedure () char) (procedure () *) (procedure () . *) #!optional * * *) port))
    617 (make-output-port (procedure make-output-port ((procedure (string) . *) (procedure () . *) (procedure () . *)) port))
     618(make-output-port (procedure make-output-port ((procedure (string) . *) (procedure () . *) #!optional (procedure () . *)) port))
    618619(port-for-each (procedure port-for-each ((procedure (*) *) (procedure () . *)) undefined))
    619620(port-map (procedure port-map ((procedure (*) *) (procedure () . *)) list))
     
    636637(change-directory (procedure change-directory (string) undefined))
    637638(change-file-mode (procedure change-file-mode (string fixnum) undefined))
    638 (change-file-owner (procedure change-file-owner (string fixnum) undefined))
     639(change-file-owner (procedure change-file-owner (string fixnum fixnum) undefined))
    639640(close-input-pipe (procedure close-input-pipe (port) fixnum))
    640641(close-output-pipe (procedure close-output-pipe (port) fixnum))
     
    644645(create-session (procedure create-session () fixnum))
    645646(create-symbolic-link (procedure create-symbolic-link (string string) undefined))
    646 (current-directory (procedure current-directory () string))
     647(current-directory (procedure current-directory (#!optional string) string))
    647648(current-effective-group-id (procedure current-effective-group-id () fixnum))
    648649(current-effective-user-id (procedure current-effective-user-id () fixnum))
     
    842843(signals-list list)
    843844(sleep (procedure sleep (fixnum) fixnum))
    844 (stat-block-device? (procedure stat-block-device? (string) boolean))
    845 (stat-char-device? (procedure stat-char-device? (string) boolean))
    846 (stat-directory? (procedure stat-directory? (string) boolean))
    847 (stat-fifo? (procedure stat-fifo? (string) boolean))
    848 (stat-regular? (procedure stat-regular? (string) boolean))
    849 (stat-socket? (procedure stat-socket? (string) boolean))
    850 (stat-symlink? (procedure stat-symlink? (string) boolean))
     845(block-device? (procedure block-device? (string) boolean))
     846(stat-block-device? deprecated)
     847(character-device? (procedure character-device? (string) boolean))
     848(stat-char-device? deprecated)
     849(stat-fifo? deprecated)
     850(stat-directory? deprecated)
     851(fifo? (procedure fifo? (string) boolean))
     852(stat-regular? deprecated)
     853(stat-socket? deprecated)
     854(socket? (procedure socket? (string) boolean))
     855(stat-symlink? deprecated)
    851856(string->time (procedure string->time (string #!optional string) vector))
    852857(symbolic-link? (procedure symbolic-link? (string) boolean))
     
    926931(length+ (procedure length+ (list) *))
    927932(list-copy (procedure list-copy (list) list))
    928 (list-index (procedure list-index ((procedure (* #!rest) *) list #!rest list) fixnum))
     933(list-index (procedure list-index ((procedure (* #!rest) *) list #!rest list) *))
    929934(list-tabulate (procedure list-tabulate (fixnum (procedure (fixnum) *)) list))
    930935(list= (procedure list= (#!rest list) boolean))
     
    940945(lset-xor (procedure lset-xor ((procedure (* *) *) list #!rest list) list))
    941946(lset-xor! (procedure lset-xor! ((procedure (* *) *) list #!rest list) list))
    942 (lset<= (procedure lset<= ((procedure (* *) *) list #!rest list) list))
    943 (lset= (procedure lset= ((procedure (* *) *) list #!rest list) list))
     947(lset<= (procedure lset<= ((procedure (* *) *) list #!rest list) boolean))
     948(lset= (procedure lset= ((procedure (* *) *) list #!rest list) boolean))
    944949(make-list (procedure make-list (fixnum #!optional *) list))
    945950(map! (procedure map! ((procedure (*) *) list #!rest list) list))
     
    10401045(string-skip (procedure string-skip (string * #!optional fixnum fixnum) fixnum))
    10411046(string-skip-right (procedure string-skip-right (string * #!optional fixnum fixnum) fixnum))
    1042 (string-suffix-ci? (procedure string-suffix-ci? (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     1047(string-suffix-ci? (procedure string-suffix-ci? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
    10431048(string-suffix-length (procedure string-suffix-length (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
    10441049(string-suffix-length-ci (procedure string-suffix-length-ci (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
    1045 (string-suffix? (procedure string-suffix? (string string #!optional fixnum fixnum fixnum fixnum) fixnum))
     1050(string-suffix? (procedure string-suffix? (string string #!optional fixnum fixnum fixnum fixnum) boolean))
    10461051(string-tabulate (procedure string-tabulate ((procedure (fixnum) char) fixnum) string))
    10471052(string-take (procedure string-take (string fixnum) string))
     
    11021107(char-set-size (procedure char-set-size ((struct char-set)) fixnum))
    11031108(char-set-unfold (procedure char-set-unfold (procedure procedure procedure * #!optional (struct char-set)) (struct char-set)))
    1104 (char-set-unfold! (procedure char-set-unfold! () (procedure procedure procedure * (struct char-set)) (struct char-set)))
     1109(char-set-unfold! (procedure char-set-unfold! (procedure procedure procedure * (struct char-set)) (struct char-set)))
    11051110(char-set-union (procedure char-set-union (#!rest (struct char-set)) (struct char-set)))
    11061111(char-set-union! (procedure char-set-union! (#!rest (struct char-set)) (struct char-set)))
     
    11201125(char-set:printing (struct char-set))
    11211126(char-set:punctuation (struct char-set))
    1122 (char-set:s (procedure (struct char-set) *))
    11231127(char-set:symbol (struct char-set))
    11241128(char-set:title-case (struct char-set))
Note: See TracChangeset for help on using the changeset viewer.