From 8160859c8b61cb63bb0308a959d1920b3f0ad21f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 12 Jul 2008 13:12:45 -0500
Subject: [PATCH] Fixes

---
 core/classes/tuple/parser/parser-tests.factor | 2 +-
 core/optimizer/math/math.factor               | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/core/classes/tuple/parser/parser-tests.factor b/core/classes/tuple/parser/parser-tests.factor
index 10cbe268da..d40b71b477 100644
--- 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 799f4d80cf..b208a9f894 100755
--- 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
 
 {