calendar: faster /rem.

diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor
index a95baf990ec0c2711e80b28b0d95457824132e08..40d1812ded94f5faa80e1a9caef2640c7fb5b270 100644 (file)
--- a/basis/calendar/calendar.factor
+++ b/basis/calendar/calendar.factor
@@ -194,7 +194,7 @@ GENERIC: +second ( timestamp x -- timestamp )
 
 : /rem ( f n -- q r )
     ! q is positive or negative, r is positive from 0 <= r < n
-    [ / floor >integer ] 2keep rem ;
+    [ /mod ] keep over 0 < [ + [ -1 + ] dip ] [ drop ] if ;
 
 : float>whole-part ( float -- int float )
     [ floor >integer ] keep over - ;