From 1a60a233b9349f320e67f35db1aa3b87d7c2a591 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 30 Apr 2009 11:48:56 -0400 Subject: Subforms type-checks; lists urlified and unurlified --- tests/list.ur | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'tests/list.ur') diff --git a/tests/list.ur b/tests/list.ur index 815c0075..480bdd3e 100644 --- a/tests/list.ur +++ b/tests/list.ur @@ -8,10 +8,15 @@ fun delist (ls : list string) : xbody = Nil => Nil | Cons (h, t) => {[h]} :: {delist t} +fun callback ls = return + {delist ls} + + fun main () = return {[isNil (Nil : list bool)]}, {[isNil (Cons (1, Nil))]}, {[isNil (Cons ("A", Cons ("B", Nil)))]}

{delist (Cons ("X", Cons ("Y", Cons ("Z", Nil))))}

+ Go! -- cgit v1.2.3