--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/ktuple.ur Sun Oct 10 13:07:38 2010 -0400 @@ -0,0 +1,2 @@ +type q = (fn p => p.1) (int, float) +type q = (fn p => p.1 * $p.3) (int, float, [])