[MLton-commit] r5864

[Matthew Fluet]

Broken formatting of 'where type ty = ty where ty = ty'
----------------------------------------------------------------------

U   mlton/trunk/ide/enscript/sml_fancy.st

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

Modified: mlton/trunk/ide/enscript/sml_fancy.st
===================================================================
--- mlton/trunk/ide/enscript/sml_fancy.st	2007-08-13 22:01:46 UTC (rev 5863)
+++ mlton/trunk/ide/enscript/sml_fancy.st	2007-08-13 22:49:54 UTC (rev 5864)
@@ -470,6 +470,7 @@
     sml_andbind[0] = SML_AND_VALBIND;
   }
   /\b(where)\b/ { 
+    sml_finish_typctxt ();
     sml_keyword ($0, SML_MODULES_LEVEL); 
   }
   /\b(while)\b/ {