From 3b7e39fa4ab2dcfc6ec9591be6476b4240baf671 Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 29 Jan 2010 21:10:14 +0000 Subject: bugfix in the PGF typechecker and more test cases --- testsuite/runtime/eval/eval.gfs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'testsuite/runtime/eval/eval.gfs') diff --git a/testsuite/runtime/eval/eval.gfs b/testsuite/runtime/eval/eval.gfs index 9317ce92a..b2e215a8e 100644 --- a/testsuite/runtime/eval/eval.gfs +++ b/testsuite/runtime/eval/eval.gfs @@ -20,6 +20,9 @@ pt -compute g0 23 pt -compute const 3.14 "pi" pt -compute dec (succ (succ zero)) pt -compute dec (succ ?) +pt -compute dec (succ zeroF) +pt -compute dec (succF zeroF) +pt -compute dec zeroF pt -compute <\x -> dec x : Nat -> Nat> pt -compute dec ? pt -compute <\f -> f 0 : (Int -> Int) -> Int> (g3 ?) @@ -27,4 +30,5 @@ pt -compute g (g2 ? 0) pt -compute plus (succ zero) (succ zero) pt -compute dec2 0 (succ zero) pt -compute dec2 0 err -pt -compute plus err (succ zero) \ No newline at end of file +pt -compute plus err (succ zero) +pt -compute <\x -> dec (dec x) : Nat -> Nat> \ No newline at end of file -- cgit v1.2.3