From c8e0b848b63d11a7e3df5f36e722e24cb83ece6b Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Mon, 13 Feb 2012 11:10:30 -0500
Subject: [PATCH] fix for issue 79.  Thanks to Jens Soegaard for finding this
 bug.

---
 web-world/main.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/web-world/main.rkt b/web-world/main.rkt
index abddd38..4f82532 100644
--- a/web-world/main.rkt
+++ b/web-world/main.rkt
@@ -92,7 +92,7 @@
   (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)
+              #`(view-bind (view-focus #,a-view-stx #,a-selector)
                            #,a-type
                            #,a-function))
             #'a-view