Megaform test

1 files changed, 2 insertions, 1 deletions

diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 117f944c..b59ab26a 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -508,6 +508,7 @@ con html = [Html]
 con head = [Head]
 con body = [Body]
 con form = [Body, Form]
+con subform = [Body, Subform]
 con tabl = [Body, Table]
 con tr = [Body, Tr]
 
@@ -570,7 +571,7 @@ val subform : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type}
 val subforms : ctx ::: {Unit} -> use ::: {Type} -> bind ::: {Type}
               -> [[Form] ~ ctx] =>
     nm :: Name -> [[nm] ~ use] =>
-    xml [Body, Subform] [Entry = $bind] []
+    xml subform [Entry = $bind] []
     -> xml ([Form] ++ ctx) use [nm = list ($bind)]
 
 val entry : ctx ::: {Unit} -> bind ::: {Type}