Fix square brackets in benchmark that is supposed to be R5RS Scheme
This issue was uncovered by a change to the r5rs package in racket/r5rs@ecbe26bb8b.
This commit is contained in:
parent
81cb99038c
commit
699dd39b1e
|
@ -1070,7 +1070,7 @@
|
|||
(define set-indirect-label! (lambda (x v) (set-indirect-label-label! x v))))
|
||||
|
||||
(define gen-label
|
||||
(let ([n 0]) (lambda () (set! n (+ 1 n)) n))) ; <<changed from (string #\i)>>
|
||||
(let ((n 0)) (lambda () (set! n (+ 1 n)) n))) ; <<changed from (string #\i)>>
|
||||
(define label?
|
||||
(lambda (x)
|
||||
(or (number? x) ; normal lexical labels <<changed to number>>
|
||||
|
|
Loading…
Reference in New Issue
Block a user