From bba6b7d866340821ac078974ca76db50d09c6c0a Mon Sep 17 00:00:00 2001
From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 17 Sep 2012 13:25:22 -0700
Subject: [PATCH] Add flo:modulo

---
 src/runtime/fixart.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/runtime/fixart.scm b/src/runtime/fixart.scm
index 9fb738bdb..b3321f246 100644
--- 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)
-- 
2.25.1