From 372a19afa05522b5f5658ad7c0f9b693f426bb42 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Fri, 1 Apr 2022 23:18:46 -0700 Subject: [PATCH] Another Resyntax pass --- parser-tools/yacc.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/parser-tools/yacc.rkt b/parser-tools/yacc.rkt index 753d083..d3205a1 100644 --- a/parser-tools/yacc.rkt +++ b/parser-tools/yacc.rkt @@ -17,12 +17,12 @@ ;; (vectorof (symbol runtime-action hashtable)) (define-for-syntax (convert-parse-table table) (for/vector ([state-entry (in-vector table)]) - (let ([ht (make-hasheq)]) - (for ([gs/action (in-list state-entry)]) - (hash-set! ht - (gram-sym-symbol (car gs/action)) - (action->runtime-action (cdr gs/action)))) - ht))) + (define ht (make-hasheq)) + (for ([gs/action (in-list state-entry)]) + (hash-set! ht + (gram-sym-symbol (car gs/action)) + (action->runtime-action (cdr gs/action)))) + ht)) (define-syntax (parser stx) (syntax-case stx ()