simplify how params and body are bound

pandeiro · May 10, 2012 · 59e4a9c · 59e4a9c
1 parent c454c5b
commit 59e4a9c
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/noir/core.clj b/src/noir/core.clj
@@ -103,10 +103,10 @@
 (defmacro defpartial
   "Create a function that returns html using hiccup. The function is callable with the given name. Can optionally include a docstring or metadata map, like a normal function declaration."
   [fname & args]
-  (let [[fname params] (macro/name-with-attributes fname args)
-        body (if-let [fv (first (filter vector? args))]
-               (second (split-at (inc (.indexOf args fv)) args)))]
-    `(defn ~fname ~@params
+  (let [[fname args] (macro/name-with-attributes fname args)
+        params (first args)
+        body (rest args)]
+    `(defn ~fname ~params
        (html
         ~@body))))