Fixes

diff --git a/core/classes/tuple/parser/parser-tests.factor b/core/classes/tuple/parser/parser-tests.factor
index 10cbe268da637a026978f22a338c06a9ff67e9eb..d40b71b4776eb9aa1b1a1816909bff2f1daa2b06 100644 (file)
--- a/core/classes/tuple/parser/parser-tests.factor
+++ b/core/classes/tuple/parser/parser-tests.factor
@@ -51,7 +51,7 @@ must-fail-with
 [ error>> unexpected-eof? ]
 must-fail-with
 
-[ "IN: classes.tuple.parser.tests USE: generic.standard TUPLE: foo { slot no-method } ;" eval ]
+[ "IN: classes.tuple.parser.tests USE: alien TUPLE: foo { slot dll } ;" eval ]
 [ error>> no-initial-value? ]
 must-fail-with
 

diff --git a/core/optimizer/math/math.factor b/core/optimizer/math/math.factor
index 799f4d80cfa89f2701b81b8a5a027d84c4d999e4..b208a9f894247c4c0ede54446320303ad9aac65c 100755 (executable)
--- a/core/optimizer/math/math.factor
+++ b/core/optimizer/math/math.factor
@@ -444,7 +444,10 @@ most-negative-fixnum most-positive-fixnum [a,b]
 { /f < > <= >= }
 [ { real real } "input-classes" set-word-prop ] each
 
-{ /i bitand bitor bitxor bitnot shift }
+{ /i mod /mod }
+[ { rational rational } "input-classes" set-word-prop ] each
+
+{ bitand bitor bitxor bitnot shift }
 [ { integer integer } "input-classes" set-word-prop ] each
 
 {