Use `hash-update!`

3 years ago · 5c953a3d08
parent dea323686f
commit 5c953a3d08
1 changed files with 1 additions and 5 deletions
--- a/parser-tools/private-lex/deriv.rkt
+++ b/parser-tools/private-lex/deriv.rkt
@ -263,11 +263,7 @@
                                       (set! new-state? #t)
                                       (state new-re (get-state-number))))]
                   [new-all-states (if new-state? (cons new-state all-states) all-states)])
-              (hash-set! transitions 
-                         s
-                         (cons (cons c new-state)
-                               (hash-ref transitions s
-                                         '())))
+              (hash-update! transitions s (λ (v) (cons (cons c new-state) v)) '())
              (cond
                [new-state?
                 (loop old-states (cons new-state new-states) new-all-states (cdr cs))]