Mercurial > urweb

comparison tests/reduce.lac @ 21:067029c748e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Beta reductions for expressions
author Adam Chlipala <adamc@hcoop.net>
date Sun, 08 Jun 2008 16:02:26 -0400
parents 1ab48e37d0ef
children d8850cc06d24
comparison
equal deleted inserted replaced
20:1ab48e37d0ef 21:067029c748e9
15 con c7 = apply (fst int) string 15 con c7 = apply (fst int) string
16 16
17 val grab = fn n :: Name => fn t :: Type => fn fs :: {Type} => 17 val grab = fn n :: Name => fn t :: Type => fn fs :: {Type} =>
18 fn x : $([n = t] ++ fs) => x 18 fn x : $([n = t] ++ fs) => x
19 val grabA = grab[#A][int][[B = string]] 19 val grabA = grab[#A][int][[B = string]]
20 val test_grabA = grabA {A = 6, B = "13"}