Update to all the breaking changes

Makefile

@@ -12,7 +12,7 @@ $(addsuffix .prj,$(BIN)): %.prj: %.prj.default
 	cp $^ $@
 
 clean-compiler:
-	svn checkout -r 3022 https://svn.cs.ru.nl/repos/clean-compiler/branches/itask/ clean-compiler
+	svn checkout -r 3043 https://svn.cs.ru.nl/repos/clean-compiler/branches/itask/ clean-compiler
 	$(MAKE) -j -C clean-compiler/main/Unix
 	$(MAKE) -j -C clean-compiler/backendC/CleanCompilerSources -f Makefile.linux64
 	ln -s ../../backendC/CleanCompilerSources/backend.a clean-compiler/backend/Clean\ System\ Files/backend_library

testproperties.icl

@@ -214,15 +214,15 @@ handleModule opts fp w
 // Find properties
 #! (comments,w) = scanComments fp w
 #! (dcl,w) = readModule fp w
-#! (modid,dcldefs,documentation) = case dcl of
+#! (mod,dcldefs,documentation) = case dcl of
 	Error _ -> (abort "failed to parse module\n", [], emptyCollectedComments)
-	Ok (dcl,_) -> (dcl.mod_ident, dcl.mod_defs, case comments of
+	Ok (dcl,_) -> (dcl, dcl.mod_defs, case comments of
 		Error _ -> emptyCollectedComments
 		Ok comments -> collectComments comments dcl)
-# moddoc = case parseDoc <$> getComment modid documentation of
+# moddoc = case parseDoc <$> getComment mod documentation of
 	Just (Right (doc,_)) -> Just doc
 	_                    -> Nothing
-# modname = modid.id_name
+# modname = mod.mod_ident.id_name
 # output_modname = opts.output_prefix +++ "." +++ modname
 # output_filename = opts.output_directory </> replaceSubString "." {pathSeparator} output_modname +++ ".icl"
 # (nprops,coverage,props) = generatePropertyModule
@@ -231,8 +231,10 @@ handleModule opts fp w
 	opts.test_options
 	moddoc
 	[(id.id_name,doc) \\
-		id <- [id \\ PD_Function pos id _ _ _ _ <- dcldefs] ++ [id \\ PD_TypeSpec pos id _ _ _   <- dcldefs],
-		Just docstring <- [getComment id documentation],
+		(pd,id) <-
+			[(pd,id) \\ pd=:(PD_Function pos id _ _ _ _) <- dcldefs] ++
+			[(pd,id) \\ pd=:(PD_TypeSpec pos id _ _ _) <- dcldefs],
+		Just docstring <- [getComment pd documentation],
 		Right (doc,_) <- [parseDoc docstring]]
 // Write properties
 | nprops == 0 = w