Add % binop.

manuel · Mar 21, 2012 · 14bb874 · 14bb874
1 parent 7af933f
commit 14bb874
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/standard.virtua b/standard.virtua
@@ -488,7 +488,7 @@
 
 ;;;; Numbers
 
-(provide (+ - * /)
+(provide (+ - * / %)
   (defmacro define-js-number-binop (name) env
     (def a (intern "a"))
     (def b (intern "b"))
@@ -500,7 +500,9 @@
   (define-js-number-binop "+")
   (define-js-number-binop "-")
   (define-js-number-binop "*")
-  (define-js-number-binop "/"))
+  (define-js-number-binop "/")
+  (define-js-number-binop "%")
+  )
 
 (defmacro inc! (var . delta) env
   (eval (list set! var (list + var (if (pair? delta) (car delta) 1))) env))