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

fix for issue 79. Thanks to Jens Soegaard for finding this bug.

Browse Source
This commit is contained in:
Danny Yoo 2012-02-13 11:10:30 -05:00
parent b7ca54058c
commit c8e0b848b6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
web-world/main.rkt
View File

@ -92,7 +92,7 @@
(syntax-case stx () (syntax-case stx ()
[(_ a-view [a-selector a-type a-function] ...) [(_ a-view [a-selector a-type a-function] ...)
(foldl (lambda (a-selector a-type a-function a-view-stx) (foldl (lambda (a-selector a-type a-function a-view-stx)
#'(view-bind (view-focus #,a-view-stx #,a-selector) #`(view-bind (view-focus #,a-view-stx #,a-selector)
#,a-type #,a-type
#,a-function)) #,a-function))
#'a-view #'a-view