parent
3710f45eba
commit
bc80116eff
|
@ -6198,7 +6198,7 @@
|
||||||
;; for
|
;; for
|
||||||
;; (lambda (arg-id ...) (define def-id _rhs) ... (arg-id def-id) ...)
|
;; (lambda (arg-id ...) (define def-id _rhs) ... (arg-id def-id) ...)
|
||||||
|
|
||||||
(let ()
|
(when (run-unreliable-tests? 'timing)
|
||||||
(define (gensym-n n)
|
(define (gensym-n n)
|
||||||
(let loop ([i n])
|
(let loop ([i n])
|
||||||
(if (zero? i)
|
(if (zero? i)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user