X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTask.icl;h=9d42d2faa0dee73bca5a1e869cb2b5a241183871;hb=497a31ebe6922b1b9f889450f5830f1ca1c4bb59;hp=34703d23fa40e8e4c90081ad9c9a580986aac00c;hpb=7a67ef5e2af69cb14011be201fe67f755b91a788;p=mTask.git

diff --git a/mTask.icl b/mTask.icl
index 34703d2..9d42d2f 100644
--- a/mTask.icl
+++ b/mTask.icl
@@ -14,8 +14,11 @@ todo:
 	imporove setp: >>*.
 */
 
+import Generics.gCons
+import Generics.gdynamic
+
 import iTasks
-import gdynamic, gCons, GenEq, StdMisc, StdArray
+import GenEq, StdMisc, StdArray, GenBimap
 import mTaskCode
 import mTaskSerial, mTaskLCD
 
@@ -118,8 +121,9 @@ instance long Eval Long where
 instance == DigitalPin where (==) x y = x === y
 instance == AnalogPin   where (==) x y = x === y
 
-derive consName DigitalPin, AnalogPin, PinMode
-derive consIndex DigitalPin, AnalogPin
+derive gPrint Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
+derive class gCons Pin, Button, UserLED, AnalogPin, DigitalPin, PinMode
+
 
 tab =: toString (repeatn tabSize ' ')
 tabSize :== 2