merge laptop

[clean-tests.git] / gen / test.icl

diff --git a/gen/test.icl b/gen/test.icl
new file mode 100644 (file)
index 0000000..98f7d23
--- /dev/null
+++ b/gen/test.icl
@@ -0,0 +1,16 @@
+module test
+
+import StdEnv
+import StdGeneric
+
+generic gen a :: a
+
+gen{|Int|} = 0
+gen{|OBJECT|} fa = OBJECT fa
+
+:: BI =: BI Int
+derive gen BI
+
+//Start w = startEngine (viewInformation "" [ViewAs (\t->TtTag [] [Text t])] "bork") w
+Start :: BI
+Start = gen{|*|}