From: Mart Lubbers <mart@martlubbers.net>
Date: Fri, 6 Nov 2015 18:29:39 +0000 (+0100)
Subject: started with itasks
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=c189c39ee87ec5cef271ad8c0efe911fa763a4aa;p=ap2015.git

started with itasks
---

diff --git a/a7/mart/skeleton7.icl b/a7/mart/skeleton7.icl
index 43b58b2..5281d10 100644
--- a/a7/mart/skeleton7.icl
+++ b/a7/mart/skeleton7.icl
@@ -141,6 +141,8 @@ ActionOk :== 'iTasks'.ActionOk
 ActionQuit :== 'iTasks'.ActionQuit
 ActionNew :== 'iTasks'.ActionNew
 
-//Start = print (Delete (Integer 4) (Insert (Integer 5) New))
-//Start = print 
-Start = print (Insert (Size (Insert (Oper (Integer 5) +. (Integer 6)) New)) New)
+mainTask = viewInformation (print e)
+
+Start :: *World -> *World
+Start world = startEngine mainTask world
+//Start = print (Insert (Size (Insert (Oper (Integer 5) +. (Integer 6)) New)) New)