Changeset 31586 in project


Ignore:
Timestamp:
10/05/14 05:31:23 (5 years ago)
Author:
evhan
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/r7rs/trunk/scheme.base.scm

    r31081 r31586  
    657657
    658658(: error-object? (* -> boolean : (struct condition)))
    659 (: error-object-message ((struct condition) -> string))
    660 (: error-object-irritants ((struct condition) -> list))
     659(: error-object-message ((struct condition) -> (or string false)))
     660(: error-object-irritants ((struct condition) -> (or list false)))
    661661
    662662(define (error-object? o) (condition? o))
Note: See TracChangeset for help on using the changeset viewer.