suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add guards to two uses of seen

Browse Source
This commit is contained in:
Mauer-Oats 2020-07-26 21:45:12 -05:00 committed by Matthew Flatt
parent 2ebb44781f
commit da5f77e277
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/syntax/moddep.rkt
View File

@ -22,9 +22,9 @@
(let ([accum (let loop ([accum (cons (list indent path fs phase) accum)]) (let ([accum (let loop ([accum (cons (list indent path fs phase) accum)])
(cond (cond
[(null? accum) null] [(null? accum) null]
[(hash-ref seen accum #f) null] [(and seen (hash-ref seen accum #f)) null]
[else [else
(hash-set! seen accum #t) (when seen (hash-set! seen accum #t))
(cons (car accum) (loop (cdr accum)))]))]) (cons (car accum) (loop (cdr accum)))]))])
(for ([i (in-list (reverse accum))]) (for ([i (in-list (reverse accum))])
(apply show i)))) (apply show i))))