[MLton-commit] r6735

[Matthew Fluet]

The MLton_bug primitive takes no type arguments.
----------------------------------------------------------------------

U   mlton/trunk/mlton/xml/implement-exceptions.fun
U   mlton/trunk/mlton/xml/implement-suffix.fun

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

Modified: mlton/trunk/mlton/xml/implement-exceptions.fun
===================================================================
--- mlton/trunk/mlton/xml/implement-exceptions.fun	2008-08-19 22:12:19 UTC (rev 6734)
+++ mlton/trunk/mlton/xml/implement-exceptions.fun	2008-08-19 22:12:26 UTC (rev 6735)
@@ -1,4 +1,4 @@
-(* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
  *
@@ -561,7 +561,7 @@
                   in Exp.prefix
                      (Exp.fromPrimExp
                       (PrimApp {prim = Prim.bug,
-                                targs = Vector.new1 Type.unit,
+                                targs = Vector.new0 (),
                                 args = Vector.new1 (VarExp.mono s)},
                        Type.unit),
                       MonoVal {var = s,

Modified: mlton/trunk/mlton/xml/implement-suffix.fun
===================================================================
--- mlton/trunk/mlton/xml/implement-suffix.fun	2008-08-19 22:12:19 UTC (rev 6734)
+++ mlton/trunk/mlton/xml/implement-suffix.fun	2008-08-19 22:12:26 UTC (rev 6735)
@@ -1,4 +1,4 @@
-(* Copyright (C) 1999-2007 Henry Cejtin, Matthew Fluet, Suresh
+(* Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
  *    Jagannathan, and Stephen Weeks.
  * Copyright (C) 1997-2000 NEC Research Institute.
  *
@@ -97,7 +97,7 @@
          end
       fun bug s =
          Dexp.primApp {prim = Prim.bug,
-                       targs = Vector.new1 Type.unit,
+                       targs = Vector.new0 (),
                        args = Vector.new1 (Dexp.string s),
                        ty = Type.unit}
       val body =