~ chicken-core (chicken-5) cbb23a2a984a2a24299234ee1c0e96b47f18bae5

commit cbb23a2a984a2a24299234ee1c0e96b47f18bae5
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Jan 23 22:02:35 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Jan 23 22:02:35 2011 +0100

    db entries for read-buffered and condition->list

diff --git a/chicken.import.scm b/chicken.import.scm
index 863bd8c2..9811d8f5 100644
--- a/chicken.import.scm
+++ b/chicken.import.scm
@@ -51,6 +51,7 @@
    condition-predicate
    condition-property-accessor
    condition?
+   condition->list
    continuation-capture
    continuation-graft
    continuation-return
diff --git a/extras.import.scm b/extras.import.scm
index 84d33660..1c569032 100644
--- a/extras.import.scm
+++ b/extras.import.scm
@@ -34,6 +34,7 @@
    printf
    random
    randomize
+   read-buffered
    read-byte
    read-file
    read-line
diff --git a/types.db b/types.db
index f2e9bceb..42c02179 100644
--- a/types.db
+++ b/types.db
@@ -252,6 +252,7 @@
 (condition-predicate (procedure condition-predicate (symbol) (procedure ((struct condition)) boolean)))
 (condition-property-accessor (procedure condition-property-accessor (symbol symbol #!optional *) (procedure ((struct condition)) *)))
 (condition? (procedure condition? (*) boolean))
+(condition->list (procedure condition->list ((struct condition)) list))
 (continuation-capture (procedure continuation-capture ((procedure ((struct continuation)) . *)) *))
 (continuation-graft (procedure continuation-graft ((struct continuation) (procedure () . *)) *))
 (continuation-return (procedure continuation-return (procedure #!rest) . *)) ;XXX make return type more specific?
@@ -501,6 +502,7 @@
 (printf (procedure printf (string #!rest) undefined))
 (random (procedure random (number) number))
 (randomize (procedure randomize (#!optional number) undefined))
+(read-buffered (procedure read-buffered (#!otional port) string))
 (read-byte (procedure read-byte (#!optional port) fixnum))
 (read-file (procedure read-file (#!optional (or port string) (procedure (port) *) fixnum) list))
 (read-line (procedure read-line (#!optional port fixnum) *))