Changeset 39873 in project

Timestamp:

04/07/21 01:48:11 (2 weeks ago)

Author:

Kon Lovett

Message:

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

File:

• release/5/srfi-19/trunk/srfi-19-tm.scm (modified) (2 diffs)

release/5/srfi-19/trunk/srfi-19-tm.scm

@@ -212 +212 @@
 
 ;-> integer, exact!
-(define-syntax number->genint
+(define-syntax number->exact-integer
   (syntax-rules ()
-    ((number->genint ?x)
+    ((number->exact-integer ?x)
       (let ((_x ?x))
         (if (fixnum? _x) _x
@@ -985 +985 @@
 (define (tm:seconds->date/type sec tzc)
   (let* (
-    (isec (number->genint sec))
+    ;seconds->utc-time cannot accept inexact-integer!
+    (isec (number->exact-integer sec))
     (tzo (timezone-locale-offset tzc))
-    ;seconds->utc-time cannot accept inexact-integer
     (tv (seconds->utc-time (+ isec tzo))) )
     (tm:make-date