# HG changeset patch
# User Karn Kallio <kkallio@eka>
# Date 1308803512 16200
# Node ID b703b375c3c0b3964315cbbd59f8287c57e859fb
# Parent  3d0cc841cafda9d7e258af1b7e408921db4a02ea
xtable monoize to string.

diff -r 3d0cc841cafd -r b703b375c3c0 src/monoize.sml
--- a/src/monoize.sml	Fri Jun 17 11:52:56 2011 -0400
+++ b/src/monoize.sml	Thu Jun 23 00:01:52 2011 -0430
@@ -208,6 +208,7 @@
                   | L.CFfi ("Basis", "unit") => (L'.TRecord [], loc)
                   | L.CFfi ("Basis", "page") => (L'.TFfi ("Basis", "string"), loc)
                   | L.CFfi ("Basis", "xbody") => (L'.TFfi ("Basis", "string"), loc)
+                  | L.CFfi ("Basis", "xtable") => (L'.TFfi ("Basis", "string"), loc)
                   | L.CFfi ("Basis", "xtr") => (L'.TFfi ("Basis", "string"), loc)
                   | L.CFfi ("Basis", "xform") => (L'.TFfi ("Basis", "string"), loc)