format files related to parser

fcore/parser/int-dfa.sml

@@ -5,20 +5,17 @@ struct
   val final = 2
 
   fun makeStart i =
-    let
-      val chr = Char.chr i
-    in
-      if Char.isDigit chr then final else dead
+    let val chr = Char.chr i
+    in if Char.isDigit chr then final else dead
     end
 
   val deadTable = Vector.tabulate (255, fn _ => dead)
-  val startTable  = Vector.tabulate (255, makeStart)
+  val startTable = Vector.tabulate (255, makeStart)
   val finalTable = startTable
 
   val tables = #[deadTable, startTable, finalTable]
 
-  fun isFinal state =
-    state = final
+  fun isFinal state = state = final
 
   fun next (state, chr) =
     let