inside a revealing slide (reveal n) is a predicate for whether its time to show slide n or not

This commit is contained in:
Jon Rafkind 2012-10-10 16:42:55 -06:00
parent 204333fc25
commit 44974c54f8

View File

@ -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 ...)))]))