Mercurial > urweb

comparison tests/reduce.lac @ 23:bfa2e9ae4df8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tree-shaking
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 17:15:09 -0400
parents d8850cc06d24
children
comparison
equal deleted inserted replaced
22:d8850cc06d24 23:bfa2e9ae4df8
21 21
22 val grab = fn n :: Name => fn t ::: Type => fn fs ::: {Type} => 22 val grab = fn n :: Name => fn t ::: Type => fn fs ::: {Type} =>
23 fn x : $([n = t] ++ fs) => x.n 23 fn x : $([n = t] ++ fs) => x.n
24 val test_grab1 = grab[#A] {A = 6, B = "13"} 24 val test_grab1 = grab[#A] {A = 6, B = "13"}
25 val test_grab2 = grab[#B] {A = 6, B = "13"} 25 val test_grab2 = grab[#B] {A = 6, B = "13"}
26
27 val main = {A = test_grab1, B = test_grab2}