modified seq example

bjpop · Aug 18, 2009 · cb8dfea · cb8dfea
1 parent 3c6250e
commit cb8dfea
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/test/seq.stg b/test/seq.stg
@@ -0,0 +1,10 @@
+# haskell: main = let x = 1 + 2 in seq x (foo x)
+main = THUNK(let {x = THUNK(plusInt one two);
+                  res = THUNK(foo x)} in seq x res);
+
+# compare with
+# haskell: main = foo (1 + 2)
+# main = THUNK(let {x = THUNK(plusInt one two) } in foo x);
+
+
+foo = FUN(x -> three)