format files related to parser

fcore/parser/space-dfa.sml

@@ -7,12 +7,8 @@ struct
   fun makeDead _ = 0
 
   fun makeStart i =
-    let
-      val chr = Char.chr i
-    in
-      if Char.isSpace chr
-      then final
-      else dead
+    let val chr = Char.chr i
+    in if Char.isSpace chr then final else dead
     end
 
   val deadTable = Vector.tabulate (255, makeDead)
@@ -21,8 +17,7 @@ struct
 
   val tables = #[deadTable, startTable, finalTable]
 
-  fun isFinal state = 
-    state = final
+  fun isFinal state = state = final
 
   fun next (state, chr) =
     let