Mercurial > urweb
diff src/urweb.grm @ 361:260b680a6a04
lform -> form
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 14 Oct 2008 16:41:48 -0400 |
| parents | c1e96b387115 |
| children | acaf9d19fbb7 |
line wrap: on
line diff
--- a/src/urweb.grm Tue Oct 14 16:37:43 2008 -0400 +++ b/src/urweb.grm Tue Oct 14 16:41:48 2008 -0400 @@ -955,8 +955,8 @@ val et = tagIn END_TAG in if #1 tag = et then - if et = "lform" then - (EApp ((EVar (["Basis"], "lform"), pos), + if et = "form" then + (EApp ((EVar (["Basis"], "form"), pos), xml), pos) else (EApp (#2 tag, xml), pos)