Changeset 39872 in project
 Timestamp:
 04/07/21 01:38:11 (2 weeks ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

release/5/srfi19/trunk/srfi19tm.scm
r38729 r39872 215 215 (syntaxrules () 216 216 ((number>genint ?x) 217 (let (( x ?x))218 (if (fixnum? x)x219 (inexact>exact (floor x)) ) ) ) ) )217 (let ((_x ?x)) 218 (if (fixnum? _x) _x 219 (inexact>exact (floor _x)) ) ) ) ) ) 220 220 221 221 ;> integer, inexact or exact! … … 223 223 (syntaxrules () 224 224 ((number>integer ?x) 225 (let (( x ?x))226 (if (integer? x)x227 (inexact>exact (floor x)) ) ) ) ) )225 (let ((_x ?x)) 226 (if (integer? _x) _x 227 (inexact>exact (floor _x)) ) ) ) ) ) 228 228 229 229 ;;; Timing Routines
Note: See TracChangeset
for help on using the changeset viewer.