@@ -70,10 +70,10 @@ codegenC' defs out exec incs objs libs flags dbg
70 "-I."] ++ objs ++ ["-x", "c"] ++
70 "-I."] ++ objs ++ ["-x", "c"] ++
71 (if (exec == Executable) then [] else ["-c"]) ++
71 (if (exec == Executable) then [] else ["-c"]) ++
73− libFlags ++
73+ concatMap words libFlags ++
74− incFlags ++
74+ concatMap words incFlags ++
75− libs ++
75+ concatMap words libs ++
76− flags ++
76+ concatMap words flags ++
77 ["-o", out]
77 ["-o", out]
78-- putStrLn gcc
78-- putStrLn gcc
79 exit <- rawSystem comp args
79 exit <- rawSystem comp args