Changeset 39872 in project

Timestamp:

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

Author:

Kon Lovett

Message:

visibly "color" syntax introduced vars

File:

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

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

@@ -215 +215 @@
   (syntax-rules ()
     ((number->genint ?x)
-      (let ((x ?x))
-        (if (fixnum? x) x
-          (inexact->exact (floor x)) ) ) ) ) )
+      (let ((_x ?x))
+        (if (fixnum? _x) _x
+          (inexact->exact (floor _x)) ) ) ) ) )
 
 ;-> integer, inexact or exact!
@@ -223 +223 @@
   (syntax-rules ()
     ((number->integer ?x)
-      (let ((x ?x))
-        (if (integer? x) x
-          (inexact->exact (floor x)) ) ) ) ) )
+      (let ((_x ?x))
+        (if (integer? _x) _x
+          (inexact->exact (floor _x)) ) ) ) ) )
 
 ;;; Timing Routines