use the signed version of toInt

mdirolf · Dec 16, 2008 · 3e1dfc2 · 3e1dfc2
1 parent 196cbc2
commit 3e1dfc2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bson.sml b/bson.sml
@@ -169,7 +169,7 @@ struct
     fun getInt bytes =
         let
             val firstFourBytes = List.take (bytes, 4) handle Subscript => raise InternalError
-            val int = Word32.toInt (PackWord32Little.subVecX (Word8Vector.fromList firstFourBytes, 0))
+            val int = Word32.toIntX (PackWord32Little.subVecX (Word8Vector.fromList firstFourBytes, 0))
             val remainder = List.drop (bytes, 4) handle Subscript => raise InternalError
         in
             (int, remainder)