From 0d423ff56e8cbae7ddade892d47858929264eb48 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Wed, 30 Mar 2022 00:36:42 -0700 Subject: [PATCH] Run `resyntax` again --- parser-tools/private-yacc/table.rkt | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/parser-tools/private-yacc/table.rkt b/parser-tools/private-yacc/table.rkt index 9af4d23..691ef2e 100644 --- a/parser-tools/private-yacc/table.rkt +++ b/parser-tools/private-yacc/table.rkt @@ -27,22 +27,20 @@ ;; group-table : parse-table -> grouped-parse-table (define (group-table table) - (list->vector - (for/list ([state-entry (in-list (vector->list table))]) - (define ht (make-hasheq)) - (for* ([gs/actions (in-list state-entry)] - [group (in-value (hash-ref ht (car gs/actions) (λ () null)))] - #:unless (member (cdr gs/actions) group)) - (hash-set! ht (car gs/actions) (cons (cdr gs/actions) group))) - (hash-map ht cons)))) + (for/vector ([state-entry (in-list (vector->list table))]) + (define ht (make-hasheq)) + (for* ([gs/actions (in-list state-entry)] + [group (in-value (hash-ref ht (car gs/actions) (λ () null)))] + #:unless (member (cdr gs/actions) group)) + (hash-set! ht (car gs/actions) (cons (cdr gs/actions) group))) + (hash-map ht cons))) ;; table-map : (vectorof (listof (cons/c gram-sym? X))) (gram-sym? X -> Y) -> ;; (vectorof (listof (cons/c gram-sym? Y))) (define (table-map f table) - (list->vector - (for/list ([state-entry (in-list (vector->list table))]) - (for/list ([gs/X (in-list state-entry)]) - (cons (car gs/X) (f (car gs/X) (cdr gs/X))))))) + (for/vector ([state-entry (in-list (vector->list table))]) + (for/list ([gs/X (in-list state-entry)]) + (cons (car gs/X) (f (car gs/X) (cdr gs/X)))))) (define (bit-vector-for-each f bv) (let loop ([bv bv] [number 0])