From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 17 Sep 2012 20:25:22 +0000 (-0700)
Subject: Add flo:modulo
X-Git-Tag: release-9.2.0~219
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bba6b7d866340821ac078974ca76db50d09c6c0a;p=mit-scheme.git

Add flo:modulo
---

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)