From 44974c54f8c034ba316e88760c23905604852cf9 Mon Sep 17 00:00:00 2001
From: Jon Rafkind <rafkind@racket-lang.org>
Date: Wed, 10 Oct 2012 16:42:55 -0600
Subject: [PATCH] inside a revealing slide (reveal n) is a predicate for
 whether its time to show slide n or not

---
 collects/unstable/gui/slideshow.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/unstable/gui/slideshow.rkt b/collects/unstable/gui/slideshow.rkt
index f8b725ae1f..01b207c965 100644
--- a/collects/unstable/gui/slideshow.rkt
+++ b/collects/unstable/gui/slideshow.rkt
@@ -184,7 +184,8 @@
                           (syntax (syntax-parameterize
                                     ([reveal (syntax-rules ()
                                                [(reveal n pict)
-                                                (show pict (>= i n))])])
+                                                (show pict (>= i n))]
+                                               [(reveal n) (>= i n)])])
                                     (slide stuff ...))))))
        (with-syntax ([(slides ...) slides])
          #'(begin slides ...)))]))