summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-11-06 08:14:53 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2011-11-06 08:14:53 -0500
commit8b93dec6b28b7b7af8b251092edac7d050d664f9 (patch)
treec8aaaf2f83a666ed886232e6d6d977696cc204c1
parent954936dd180e34b79baca71e43d55a204dda9594 (diff)
Remove dummy entity
-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