[MLton-commit] r4442

[Matthew Fluet]

Bug fixes
----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/integer/int-inf0.sml

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/integer/int-inf0.sml
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/integer/int-inf0.sml	2006-05-03 15:32:34 UTC (rev 4441)
+++ mlton/branches/on-20050822-x86_64-branch/basis-library.refactor/integer/int-inf0.sml	2006-05-03 21:43:35 UTC (rev 4442)
@@ -671,7 +671,7 @@
                     val numw = dropTagCoerce num
                     val numi = W.toObjptrIntX numw
                     val denw = dropTagCoerce den
-                    val deni = W.toObjptrIntX numw
+                    val deni = W.toObjptrIntX denw
                  in
                     if numw = badObjptrWord 
                        andalso deni = ~1
@@ -702,7 +702,7 @@
                     val numw = dropTagCoerce num
                     val numi = W.toObjptrIntX numw
                     val denw = dropTagCoerce den
-                    val deni = W.toObjptrIntX numw
+                    val deni = W.toObjptrIntX denw
                     val ansi = I.rem (numi, deni)
                     val answ = W.fromObjptrInt ansi
                     val ans = addTag answ