From 412f3792c3d2d01b5ea4778909a2f4310ef627f8 Mon Sep 17 00:00:00 2001
From: Jack Firth <jackhfirth@gmail.com>
Date: Fri, 1 Apr 2022 22:58:34 -0700
Subject: [PATCH] Revert "Replace a let loop with a for loop"

This reverts commit 8ab74df2fa120d4a0a2c4b84bcc9d10bfe0446c3.
---
 parser-tools/private-yacc/input-file-parser.rkt | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/parser-tools/private-yacc/input-file-parser.rkt b/parser-tools/private-yacc/input-file-parser.rkt
index 1c78bdb..51605e4 100644
--- a/parser-tools/private-yacc/input-file-parser.rkt
+++ b/parser-tools/private-yacc/input-file-parser.rkt
@@ -217,9 +217,12 @@
           nt
           p
           #f
-          (for/first ([gs (in-vector p (sub1 (vector-length p)) -1 -1)]
-                      #:when (term? gs))
-            (term-prec gs))
+          (let loop ([i (sub1 (vector-length p))])
+            (and (>= i 0)
+                 (let ([gs (vector-ref p i)])
+                   (if (term? gs)
+                       (term-prec gs)
+                       (loop (sub1 i))))))
           (parse-action #'PROD-RHS #'ACTION)))]
       [(PROD-RHS (PREC TERM) ACTION)
        (identifier? #'TERM)