X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskMakeSymbols.icl;h=fc1fe5eb68a96e34363e78b1583b47dae665ebfd;hb=a81623aa9629a3c5c8f8bf920e494a596b30c4b7;hp=6781ce84f224970849a4500a2bc9f4ae47ec5de6;hpb=ff7049a99f7fdd701d49222019df65a9aee8f05a;p=mTask.git

diff --git a/mTaskMakeSymbols.icl b/mTaskMakeSymbols.icl
index 6781ce8..fc1fe5e 100644
--- a/mTaskMakeSymbols.icl
+++ b/mTaskMakeSymbols.icl
@@ -20,6 +20,9 @@ from Data.Func import $
 import Data.List
 from Text import class Text(join,toUpperCase), instance Text String
 
+derive consName BC
+derive conses BC
+
 (<+) infixr 5 :: a b -> String | toString a & toString b
 (<+) a b = toString a +++ toString b