From 9dab7ba3296d89e3863df44c5997d4d35fe39f51 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Thu, 1 Sep 2011 13:09:03 -0400
Subject: [PATCH] working on xexps

---
 web-world/examples/todo/todo.rkt | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/web-world/examples/todo/todo.rkt b/web-world/examples/todo/todo.rkt
index 8caaab6..f9752ba 100644
--- a/web-world/examples/todo/todo.rkt
+++ b/web-world/examples/todo/todo.rkt
@@ -33,12 +33,11 @@
    [else
     (view-append-child (view-focus view "#items")
                        ;; FIXME: I want this to add a DOM to this.
-                       `(li (@ (id ,(item-id item)))
-                            (item-content item)))]))
+                       (xexp->dom `(li (@ (id ,(item-id item)))
+                                       ,(item-content item))))]))
 
   
 
-
 (define the-view
   (view-bind (view-focus (->view index.html) "#add-button")
              "click"