schemify: fix bad check on mutated state

This commit is contained in:
Matthew Flatt 2019-06-04 07:30:39 -06:00
parent bcac9682f1
commit 758e02fa39

View File

@ -246,7 +246,7 @@
(define u-id (unwrap id)) (define u-id (unwrap id))
(define state (hash-ref mutated u-id #f)) (define state (hash-ref mutated u-id #f))
(when (and (too-early-mutated-state? state) (when (and (too-early-mutated-state? state)
(not set!ed-mutated-state? state)) (not (set!ed-mutated-state? state)))
(hash-set! mutated u-id 'too-early/ready))) (hash-set! mutated u-id 'too-early/ready)))
(loop (wrap-cdr mut-l))] (loop (wrap-cdr mut-l))]
[else mut-l])] [else mut-l])]