diff demo/metaform2.ur @ 632:6c4643880df5

Demos compile again, with manual folders
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 15:12:13 -0500
parents ad7e854a518c
children 6302b10dbe0e
line wrap: on
line diff
--- a/demo/metaform2.ur	Tue Feb 24 14:04:07 2009 -0500
+++ b/demo/metaform2.ur	Tue Feb 24 15:12:13 2009 -0500
@@ -1,5 +1,6 @@
 structure MM = Metaform.Make(struct
                                  val names = {X = "x", Y = "y"}
+                                 val fl = Folder.cons [#X] [()] ! (Folder.cons [#Y] [()] ! Folder.nil)
                              end)
 
 fun diversion () = return <xml><body>