Changeset 31586 in project

Timestamp:

10/05/14 05:31:23 (6 years ago)

Author:

evhan

Message:

r7rs/base: types fix for error-object-{message,irritants} (results may be false)

File:

• release/4/r7rs/trunk/scheme.base.scm (modified) (1 diff)

release/4/r7rs/trunk/scheme.base.scm

@@ -657 +657 @@
 
 (: error-object? (* -> boolean : (struct condition)))
-(: error-object-message ((struct condition) -> string))
-(: error-object-irritants ((struct condition) -> list))
+(: error-object-message ((struct condition) -> (or string false)))
+(: error-object-irritants ((struct condition) -> (or list false)))
 
 (define (error-object? o) (condition? o))