suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bug in my unstable slideshow library.

Browse Source
This commit is contained in:
Carl Eastlund 2010-09-10 15:21:48 -04:00
parent ff9b535dc6
commit e8e58b5a09
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/unstable/gui/slideshow.rkt
View File

@ -173,7 +173,8 @@
(ghost pict) ... (ghost final)))))] (ghost pict) ... (ghost final)))))]
[(_ test #:combine combine [literals expr] ...) [(_ test #:combine combine [literals expr] ...)
(syntax/loc stx (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] ...) [(_ test [literals expr] ...)
(quasisyntax/loc stx (quasisyntax/loc stx
(pict-case test #:combine #,(syntax-parameter-value #'pict-combine) (pict-case test #:combine #,(syntax-parameter-value #'pict-combine)