X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskMakeSymbols.icl;h=58b65e1a4a5f5d22a180d5a585ed630d54b274c3;hb=ff56601fe3bbca4a5d507de43f31de10a11dfdb5;hp=15b78e4f956f742712743f067bbc0c24421afbac;hpb=fe2e0f56c77de00d25686ab0b583a40595b35ab8;p=mTask.git

diff --git a/mTaskMakeSymbols.icl b/mTaskMakeSymbols.icl
index 15b78e4..58b65e1 100644
--- a/mTaskMakeSymbols.icl
+++ b/mTaskMakeSymbols.icl
@@ -15,6 +15,7 @@ import StdTuple
 import Data.Tuple
 import StdList
 from Data.Func import $
+import Data.List
 from Text import class Text(join,toUpperCase), instance Text String
 
 derive consIndex BC
@@ -30,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" (map (uncurry toDefine) (zip2 [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