From 3351c5fe759c482e1cadcc26e3acb40096cdf302 Mon Sep 17 00:00:00 2001 From: Karn Kallio Date: Wed, 22 Jun 2011 23:01:52 -0530 Subject: xtable monoize to string. --- src/monoize.sml | 1 + 1 file changed, 1 insertion(+) (limited to 'src') diff --git a/src/monoize.sml b/src/monoize.sml index 25b608bb..b761f0a5 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -208,6 +208,7 @@ fun monoType env = | 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) -- cgit v1.2.3