From 6308e25f6e2bfc7eb5b83dd6a46009b67d7df43a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 19 Mar 2013 17:22:25 -0700
Subject: [PATCH] math.hashcodes: try and fix tests on 32-bit.

---
 extra/math/hashcodes/hashcodes-tests.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/extra/math/hashcodes/hashcodes-tests.factor b/extra/math/hashcodes/hashcodes-tests.factor
index ade922cbb8..cdc2c4f2ff 100644
--- a/extra/math/hashcodes/hashcodes-tests.factor
+++ b/extra/math/hashcodes/hashcodes-tests.factor
@@ -12,5 +12,9 @@ IN: math.hashcodes
 
 { t } [
     1.5 3/2 1.5 0 complex boa 3/2 0 complex boa 4array
-    [ number-hashcode 3458764513820540928 = ] all?
+    [
+        number-hashcode
+        cell-bits 64 = 3458764513820540928 3221225472 ?
+        =
+    ] all?
 ] unit-test