From cc1b670cf89bbc85ec987316f7c1a73cac6c04e2 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 30 Apr 2009 11:48:56 -0400 Subject: Subforms type-checks; lists urlified and unurlified --- src/urweb.grm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/urweb.grm') diff --git a/src/urweb.grm b/src/urweb.grm index 55a38c57..a74a48c8 100644 --- a/src/urweb.grm +++ b/src/urweb.grm @@ -1268,6 +1268,12 @@ xmlOne : NOTAGS (EApp ((EVar (["Basis"], "cdata", Infer) else if et = "subform" then (EApp ((EDisjointApp (#2 (#1 tag)), pos), xml), pos) + else if et = "subforms" then + (EApp ((EDisjointApp (#2 (#1 tag)), pos), + xml), pos) + else if et = "entry" then + (EApp ((EVar (["Basis"], "entry", Infer), pos), + xml), pos) else (EApp (#2 tag, xml), pos) else -- cgit v1.2.3