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:
Alexis King 2017-05-18 14:35:37 -07:00
parent 81cb99038c
commit 699dd39b1e

View File

@ -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>>