From 699dd39b1ec604c6acb4c508cdbd947e25498c12 Mon Sep 17 00:00:00 2001
From: Alexis King <lexi.lambda@gmail.com>
Date: Thu, 18 May 2017 14:35:37 -0700
Subject: [PATCH] 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@ecbe26bb8b6b30196879c3557cb0c53227492527.
---
 .../tests/racket/benchmarks/common/psyntax-input.txt            | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pkgs/racket-benchmarks/tests/racket/benchmarks/common/psyntax-input.txt b/pkgs/racket-benchmarks/tests/racket/benchmarks/common/psyntax-input.txt
index cb598df50c..4bc27130f1 100644
--- a/pkgs/racket-benchmarks/tests/racket/benchmarks/common/psyntax-input.txt
+++ b/pkgs/racket-benchmarks/tests/racket/benchmarks/common/psyntax-input.txt
@@ -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>>