Ignore:
Timestamp:
09/06/09 19:56:59 (10 years ago)
Author:
Kon Lovett
Message:

Save

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-19/trunk/srfi-19-timezone.scm

    r15751 r15754  
    2626
    2727(define-inline (make-utc-timezone)
    28   (let ((tz (make-timezone-components "UTC0" builtin-source-name)))
     28  (let ((tz (make-timezone-components "UTC0" (builtin-source-name))))
    2929    (update-timezone-components! tz 'std-name "UTC" 'std-offset 0) ) )
    3030
     
    7474
    7575(define (timezone-name? obj) (or (not obj) (string? obj)))
     76(define (timezone-info? obj) (or (timezone-components? obj) (timezone-offset? obj)))
    7677
    7778(define-check+error-type timezone-name)
    78 
    79 (define (timezone-info? obj)
    80   (or (timezone-components? obj)
    81       (timezone-offset? obj) ) )
    82 
    8379(define-check+error-type timezone-info)
    8480
Note: See TracChangeset for help on using the changeset viewer.