X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskMakeSymbols.icl;h=356493f3cb167f4aec9f9294cab616eaa6cdd217;hb=acd239b3f29e215ade0b63d5b26b6cf8e8ae0d63;hp=b505ee8876c5f38bcdcf7dbd54e011bba1381de0;hpb=e62ff4107298a5c69667b10ab807cf932b2c8d9a;p=mTask.git

diff --git a/mTaskMakeSymbols.icl b/mTaskMakeSymbols.icl
index b505ee8..356493f 100644
--- a/mTaskMakeSymbols.icl
+++ b/mTaskMakeSymbols.icl
@@ -1,7 +1,8 @@
 module mTaskMakeSymbols
 
 //import iTasks
-import gdynamic, gCons, GenEq, StdMisc, StdArray, GenBimap
+import Generics.gCons
+import GenEq, StdMisc, StdArray, GenBimap
 import GenPrint
 import mTask
 import StdEnum
@@ -31,7 +32,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 [0..] conses{|*|})
 # (ok, w) = fclose (io <<< "\n#endif\n") w
 | not ok = abort "Couldn't close stdio"
 = w