From 569f5e20a9dc143acecb4c916d7c3098cc3f0c80 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Wed, 14 Sep 2011 16:53:45 -0400
Subject: [PATCH] Some selective `#:when (not ...)' -> `#:unless ...'.

original commit: 623c7493ed2bbf7c89caea877a7b94a5f4c42c73
---
 collects/compiler/zo-parse.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/compiler/zo-parse.rkt b/collects/compiler/zo-parse.rkt
index 468c27fe21..6c9493537b 100644
--- 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: