X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskMakeSymbols.icl;h=6781ce84f224970849a4500a2bc9f4ae47ec5de6;hb=59c7c761163b0cc5215563644ca60e2a47b9c9a9;hp=f92cb2ae7cbf29045326ee41c1ef511b83ce349b;hpb=2baa7d4b9df523436b38a4a7a0d9cb4e75fb527c;p=mTask.git

diff --git a/mTaskMakeSymbols.icl b/mTaskMakeSymbols.icl
index f92cb2a..6781ce8 100644
--- a/mTaskMakeSymbols.icl
+++ b/mTaskMakeSymbols.icl
@@ -1,9 +1,11 @@
 module mTaskMakeSymbols
 
 //import iTasks
-import gdynamic, gCons, GenEq, StdMisc, StdArray, GenBimap
+import Generics.gCons
+import GenEq, StdMisc, StdArray, GenBimap
 import GenPrint
 import mTask
+import mTaskInterpret
 import StdEnum
 
 import StdFile
@@ -18,10 +20,6 @@ from Data.Func import $
 import Data.List
 from Text import class Text(join,toUpperCase), instance Text String
 
-derive consIndex BC, Pin
-derive consName BC, Pin
-derive conses BC, AnalogPin, DigitalPin, Pin
-
 (<+) infixr 5 :: a b -> String | toString a & toString b
 (<+) a b = toString a +++ toString b