# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1320585293 18000
# Node ID 7e2655b25ea1a51980ad841110625469181a70da
# Parent  1c9f8f06c1d6660f8192f80c49162c6e76a0aa22
Remove dummy entity

diff -r 1c9f8f06c1d6 -r 7e2655b25ea1 xml/parse.sml
--- a/xml/parse.sml	Sat Nov 05 15:05:13 2011 -0400
+++ b/xml/parse.sml	Sun Nov 06 08:14:53 2011 -0500
@@ -55,7 +55,7 @@
                                               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 @@
             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