sumB

alandipert · Nov 18, 2012 · b719782 · b719782
1 parent 27d4b78
commit b719782
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/cljs/alandipert/flapjax_demo/sum.cljs b/src/cljs/alandipert/flapjax_demo/sum.cljs
@@ -25,9 +25,9 @@
 (defn sumB
   "Returns a behavior representing the sum of behaviors."
   [& behaviors]
-  (apply fj/liftB #(apply + %&) behaviors))
+  (apply fj/liftB + behaviors))
 
-(defn ^:export calculate [target-id & source-ids]
+(defn calculate [target-id & source-ids]
   (let [arguments (map #(extractNumberB % 0) source-ids)
         results (apply sumB arguments)]
     (fj/insertValueB results target-id "innerHTML")))