Experimental support for + and - functions (joxa.std)

yrashk · Jan 27, 2012 · 561738f · 561738f
1 parent cb7725f
commit 561738f
Showing 1 changed file with 21 additions and 0 deletions.
diff --git a/src/joxa/std.jxa b/src/joxa/std.jxa
@@ -0,0 +1,21 @@
+(module joxa.std
+        (require erlang lists))
+
+(defn+ +(&rest args)
+  (case args
+    ([x y]
+     (erlang/+ x y))
+    ((a . b)
+     (lists/sum args))
+    (arg
+     arg)))
+
+(defn+ -(&rest args)
+  (case args
+    ([x y]
+     (erlang/- x y))
+    ((a . b)
+     (lists/sum (lists/map (fn (x) (erlang/- 0 x)) args)))
+    (arg
+     arg)))
+