Changeset 39873 in project


Ignore:
Timestamp:
04/07/21 01:48:11 (4 months ago)
Author:
Kon Lovett
Message:

genint -> exact-integer (wrong originally), attach comment to referred operation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-19/trunk/srfi-19-tm.scm

    r39872 r39873  
    212212
    213213;-> integer, exact!
    214 (define-syntax number->genint
     214(define-syntax number->exact-integer
    215215  (syntax-rules ()
    216     ((number->genint ?x)
     216    ((number->exact-integer ?x)
    217217      (let ((_x ?x))
    218218        (if (fixnum? _x) _x
     
    985985(define (tm:seconds->date/type sec tzc)
    986986  (let* (
    987     (isec (number->genint sec))
     987    ;seconds->utc-time cannot accept inexact-integer!
     988    (isec (number->exact-integer sec))
    988989    (tzo (timezone-locale-offset tzc))
    989     ;seconds->utc-time cannot accept inexact-integer
    990990    (tv (seconds->utc-time (+ isec tzo))) )
    991991    (tm:make-date
Note: See TracChangeset for help on using the changeset viewer.