Mercurial > urweb
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>