diff options
author | 2012-11-28 16:56:45 -0500 | |
---|---|---|
committer | 2012-11-28 16:56:45 -0500 | |
commit | 9d38076e9a1dc49faec13596a2f707269c2a0ad7 (patch) | |
tree | bd2859407b849d931b71002f26d94e4340f0d5f7 /src/monoize.sml | |
parent | 550c44b258fcbb3248cda6c6401ae17f513d0ba5 (diff) |
Allow any FFI module to declare new HTML tags
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index b51c5d77..004f69cc 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -3203,7 +3203,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = let fun getTag' (e, _) = case e of - L.EFfi ("Basis", tag) => (tag, []) + L.EFfi (_, tag) => (tag, []) | L.ECApp (e, t) => let val (tag, ts) = getTag' e in @@ -3215,7 +3215,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = fun getTag (e, _) = case e of - L.EFfiApp ("Basis", tag, [((L.ERecord [], _), _)]) => (tag, []) + L.EFfiApp (_, tag, [((L.ERecord [], _), _)]) => (tag, []) | L.EApp (e, (L.ERecord [], _)) => getTag' e | _ => (E.errorAt loc "Non-constant XML tag"; Print.eprefaces' [("Expression", CorePrint.p_exp env tag)]; |