Add flo:modulo

diff --git a/src/runtime/fixart.scm b/src/runtime/fixart.scm
index 9fb738bdbe0e4707d8e15f2f2942617d9d75d8d2..b3321f24654aeddc532c84063c60e7d4c4234dd8 100644 (file)
--- a/src/runtime/fixart.scm
+++ b/src/runtime/fixart.scm
@@ -83,6 +83,7 @@ USA.
   (flo:- flonum-subtract 2)
   (flo:* flonum-multiply 2)
   (flo:/ flonum-divide 2)
+  (flo:modulo flonum-modulo 2)
   (flo:negate flonum-negate 1)
   (flo:abs flonum-abs 1)
   (flo:exp flonum-exp 1)