Mercurial > urweb

comparison demo/metaform1.ur @ 634:6302b10dbe0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Folder generation for functors
author Adam Chlipala <adamc@hcoop.net>
date Tue, 24 Feb 2009 15:54:05 -0500
parents 6c4643880df5
children
comparison
equal deleted inserted replaced
633:03ab853c8e4b 634:6302b10dbe0e
1 open Metaform.Make(struct 1 open Metaform.Make(struct
2 val names = {A = "Tic", B = "Tac", C = "Toe"} 2 val names = {A = "Tic", B = "Tac", C = "Toe"}
3 val fl = Folder.cons [#A] [()] ! (Folder.cons [#B] [()] ! (Folder.cons [#C] [()] ! Folder.nil))
4 end) 3 end)