X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskMakeSymbols.icl;h=bb4c33eb5b6b7d6dce011b49f446f0109ba23a92;hb=ce02e66737315fe6821272e7d7cc86a79a88060d;hp=58b65e1a4a5f5d22a180d5a585ed630d54b274c3;hpb=7d7b6bdf4400272d6199401bcd76794cba9055ce;p=mTask.git

diff --git a/mTaskMakeSymbols.icl b/mTaskMakeSymbols.icl
index 58b65e1..bb4c33e 100644
--- a/mTaskMakeSymbols.icl
+++ b/mTaskMakeSymbols.icl
@@ -20,7 +20,7 @@ from Text import class Text(join,toUpperCase), instance Text String
 
 derive consIndex BC
 derive consName BC
-derive gconses BC, AnalogPin
+derive conses BC, AnalogPin
 
 (<+) infixr 5 :: a b -> String | toString a & toString b
 (<+) a b = toString a +++ toString b
@@ -31,7 +31,7 @@ toDefine i b = "#define " <+ toUpperCase (consName{|*|} b) <+ " " <+ i
 Start w
 # (io, w) = stdio w
 # io = io <<< "#ifndef MTASK_H\n#define MTASK_H\n"
-# io = io <<< join "\n" $ zipWith toDefine [1..] conses
+# io = io <<< join "\n" (zipWith toDefine [1..] conses{|*|})
 # (ok, w) = fclose (io <<< "\n#endif\n") w
 | not ok = abort "Couldn't close stdio"
 = w