Fixed order of evaluation problem.

gcv · Jun 3, 2010 · 4e19d86 · 4e19d86
1 parent 9792f95
commit 4e19d86
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/appengine_magic/core.clj b/src/appengine_magic/core.clj
@@ -16,8 +16,9 @@
 
 (defmacro def-appengine-app [app-var-name handler war-root]
   `(def ~app-var-name
-        (let [war-root# ~war-root]
-          {:handler (wrap-file (environment-decorator ~handler) (str war-root#))
+        (let [handler# ~handler
+              war-root# ~war-root]
+          {:handler (wrap-file (environment-decorator handler#) (str war-root#))
            :war-root war-root#})))