summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--xml/parse.sml6
1 files changed, 3 insertions, 3 deletions
diff --git a/xml/parse.sml b/xml/parse.sml
index 86ff3682..ad63c851 100644
--- a/xml/parse.sml
+++ b/xml/parse.sml
@@ -55,7 +55,7 @@ fun main () =
else
raise Fail "Bad entity expansion [2]"
in
- print ("\t\t(\"" ^ ent ^ "\", " ^ exp ^ "),\n");
+ print ("\t\t(\"" ^ ent ^ "\", " ^ exp ^ ") ::\n");
loop ()
end
| _ => raise Fail "Bad ENTITY line"
@@ -66,11 +66,11 @@ fun main () =
end
in
print "structure Entities = struct\n";
- print "\tval all = [\n";
+ print "\tval all =\n";
doFile "xml/xhtml-lat1.ent";
doFile "xml/xhtml-special.ent";
doFile "xml/xhtml-symbol.ent";
- print "\t(\"\", 0)]\n";
+ print "\t[]\n";
print "end\n"
end