From e8e58b5a0991d4402e5d8859c05dbc5df0089c96 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Fri, 10 Sep 2010 15:21:48 -0400 Subject: [PATCH] Fixed bug in my unstable slideshow library. --- 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 557d9aa7e7..6d80f38266 100644 --- a/collects/unstable/gui/slideshow.rkt +++ b/collects/unstable/gui/slideshow.rkt @@ -173,7 +173,8 @@ (ghost pict) ... (ghost final)))))] [(_ test #:combine combine [literals expr] ...) (syntax/loc stx - (pict-case #:combine combine [literals expr] ... [else (blank 0 0)]))] + (pict-case test #:combine combine + [literals expr] ... [else (blank 0 0)]))] [(_ test [literals expr] ...) (quasisyntax/loc stx (pict-case test #:combine #,(syntax-parameter-value #'pict-combine)