[MLton-commit] r5805

[Matthew Fluet]

Wrong primitive assigned to MLton.Pointer.sub
----------------------------------------------------------------------

U   mlton/trunk/basis-library/primitive/prim-mlton.sml

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

Modified: mlton/trunk/basis-library/primitive/prim-mlton.sml
===================================================================
--- mlton/trunk/basis-library/primitive/prim-mlton.sml	2007-07-29 04:46:33 UTC (rev 5804)
+++ mlton/trunk/basis-library/primitive/prim-mlton.sml	2007-07-29 20:31:20 UTC (rev 5805)
@@ -228,7 +228,7 @@
       val add =
          _prim "CPointer_add": pointer * C_Size.word -> pointer;
       val sub =
-         _prim "CPointer_add": pointer * C_Size.word -> pointer;
+         _prim "CPointer_sub": pointer * C_Size.word -> pointer;
       val diff =
          _prim "CPointer_diff": pointer * pointer -> C_Size.word;
       val < = _prim "CPointer_lt": pointer * pointer -> bool;