remove import of module checksupport, remove unused function: newFunction

frontend/convertcases.icl

@@ -3,7 +3,7 @@
 */
 implementation module convertcases
 
-import syntax, transform, checksupport, StdCompare, check, utilities, trans, general; //, RWSDebug
+import syntax, transform, StdCompare, check, utilities, trans, general; //, RWSDebug
 
 // exactZip fails when its arguments are of unequal length
 exactZip` :: ![.a] ![.b] -> [(.a,.b)]
@@ -1232,22 +1232,6 @@ nextAlts si=:{si_next_alt=Yes next_alt, si_force_next_alt} kees=:{case_info_ptr,
 nextAlts si kees=:{case_default} ss
 	=	findSplitCases si case_default ss ->> ("nextAlts no outerdefault" +++ toString kees.case_explicit)
 
-newFunction :: !(Optional Ident) !FunctionBody ![FreeVar] ![AType] !AType !Int !(!Int, ![FunctionInfoPtr],!*FunctionHeap)
-	-> (! SymbIdent, !(!Int, ![FunctionInfoPtr],!*FunctionHeap))
-newFunction opt_id fun_bodies local_vars arg_types result_type group_index state
-	=	newFunctionWithType opt_id fun_bodies local_vars fun_type group_index state
-	where
-	  (_,fun_type) = removeAnnotations
-		{	st_vars			= []
-		,	st_args			= arg_types
-		,	st_args_strictness=NotStrict
-		,	st_arity		= length arg_types // -*-> ("newFunction", fun_id.id_name)
-		,	st_result		= result_type
-		,	st_context		= []
-		,	st_attr_vars	= []
-		,	st_attr_env		= []
-		}
-
 newFunctionWithType :: !(Optional Ident) !FunctionBody ![FreeVar] !SymbolType !Int !(!Int, ![FunctionInfoPtr],!*FunctionHeap)
 	-> (! SymbIdent, !(!Int, ![FunctionInfoPtr],!*FunctionHeap))
 newFunctionWithType opt_id fun_bodies local_vars fun_type group_index (cs_next_fun_nr, cs_new_functions, cs_fun_heap)