Changeset 39872 in project


Ignore:
Timestamp:
04/07/21 01:38:11 (6 weeks ago)
Author:
Kon Lovett
Message:

visibly "color" syntax introduced vars

File:
1 edited

Legend:

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

    r38729 r39872  
    215215  (syntax-rules ()
    216216    ((number->genint ?x)
    217       (let ((x ?x))
    218         (if (fixnum? x) x
    219           (inexact->exact (floor x)) ) ) ) ) )
     217      (let ((_x ?x))
     218        (if (fixnum? _x) _x
     219          (inexact->exact (floor _x)) ) ) ) ) )
    220220
    221221;-> integer, inexact or exact!
     
    223223  (syntax-rules ()
    224224    ((number->integer ?x)
    225       (let ((x ?x))
    226         (if (integer? x) x
    227           (inexact->exact (floor x)) ) ) ) ) )
     225      (let ((_x ?x))
     226        (if (integer? _x) _x
     227          (inexact->exact (floor _x)) ) ) ) ) )
    228228
    229229;;; Timing Routines
Note: See TracChangeset for help on using the changeset viewer.