Usage of view-bind-many gives expansion error about whalesong HOT 5 CLOSED

Thanks, will investigate.

from whalesong.

I suspect the first #' in the fold-expressions should be an #` .

;; A syntactic form to make it more convenient to focus and bind multiple things
;; (view-bind-many a-view
;; [id type function]
;; [id type function] ...)
(define-syntax (view-bind-many stx)
(syntax-case stx ()
[(_ a-view [a-selector a-type a-function] ...)
(foldl (lambda (a-selector a-type a-function a-view-stx)
#'(view-bind (view-focus #,a-view-stx #,a-selector)
#,a-type
#,a-function))
#'a-view
(syntax->list #'(a-selector ...))
(syntax->list #'(a-type ...))
(syntax->list #'(a-function ...)))]))

from whalesong.

On Mon, Feb 13, 2012 at 10:48 AM, Jens Axel Søgaard
[email protected]
wrote:

I suspect the first #' in the fold-expressions should be an #` .

Agreed! Fixing this now. Let me add a test case for this as well.

from whalesong.

On Mon, Feb 13, 2012 at 11:09 AM, Danny Yoo [email protected] wrote:

On Mon, Feb 13, 2012 at 10:48 AM, Jens Axel Søgaard
[email protected]
wrote:

I suspect the first #' in the fold-expressions should be an #` .

Agreed!  Fixing this now.  Let me add a test case for this as well.

Fix in c8e0b84; I'll get a version of
Whalesong released later tonight that includes this.

from whalesong.

Ok, added example in web-world/examples/color-buttons.rkt. This will be in the next release.

from whalesong.