Some selective #:when (not ...)' -> #:unless ...'.

original commit: 623c7493ed
2011-09-14 16:53:45 -04:00 · 2011-09-14 16:53:45 -04:00 · 569f5e20a9
commit 569f5e20a9
parent c626b6fc7c
1 changed files with 1 additions and 1 deletions
--- a/collects/compiler/zo-parse.rkt
+++ b/collects/compiler/zo-parse.rkt
@ -307,7 +307,7 @@
                                [else (error 'zo-parse "bad phase ~a body element: ~e" i sb)]))))
                    ;; unexported:
                    (for/list ([l (in-list phase-data)]
-                               #:when (not (void? (list-ref l 1))))
+                               #:unless (void? (list-ref l 1)))
                      (let* ([phase (list-ref l 0)]
                             [indirect-syntax 
                              ;; could check: (list-ref l 2) should be size of vector: