Run `resyntax` again

parser-tools/private-yacc/table.rkt

@@ -27,22 +27,20 @@
   
 ;; group-table : parse-table -> grouped-parse-table
 (define (group-table table)
-  (list->vector
+  (for/vector ([state-entry (in-list (vector->list table))])
-   (for/list ([state-entry (in-list (vector->list table))])
+    (define ht (make-hasheq))
-             (define ht (make-hasheq))
+    (for* ([gs/actions (in-list state-entry)]
-             (for* ([gs/actions (in-list state-entry)]
+           [group (in-value (hash-ref ht (car gs/actions) (λ () null)))]
-                    [group (in-value (hash-ref ht (car gs/actions) (λ () null)))]
+           #:unless (member (cdr gs/actions) group))
-                    #:unless (member (cdr gs/actions) group))
+      (hash-set! ht (car gs/actions) (cons (cdr gs/actions) group)))
-                   (hash-set! ht (car gs/actions) (cons (cdr gs/actions) group)))
+    (hash-map ht cons)))
-             (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/vector ([state-entry (in-list (vector->list table))])
-   (for/list ([state-entry (in-list (vector->list table))])
+    (for/list ([gs/X (in-list state-entry)])
-             (for/list ([gs/X (in-list state-entry)])
+      (cons (car gs/X) (f (car gs/X) (cdr gs/X))))))
-                       (cons (car gs/X) (f (car gs/X) (cdr gs/X)))))))
   
 (define (bit-vector-for-each f bv)
   (let loop ([bv bv] [number 0])