Strip unused arguments to supercompile

dd472d48 · Vincent Zweije · ffc26db8 · dd472d48
Commit dd472d48 authored Aug 21, 2001 by Vincent Zweije
--- a/frontend/frontend.icl
+++ b/frontend/frontend.icl
@@ -207,7 +207,9 @@ frontEndInterface opts mod_ident dcl_modules functions_and_macros predef_symbols
 					= analyseGroups common_defs array_instances main_dcl_module_n (components -*-> "Analyse") fun_defs var_heap expression_heap
 	  			-> transformGroups cleanup_info main_dcl_module_n (components -*-> "Transform")  fun_defs acc_args common_defs imported_funs dcl_types used_conses_in_dynamics type_def_infos var_heap type_heaps expression_heap
 			FS_online
-				-> supercompile common_defs array_instances dcl_mods main_dcl_module_n (components -*-> "Supercompile") fun_defs var_heap expression_heap imported_funs dcl_types used_conses_in_dynamics type_def_infos type_heaps
+				# (fun_defs,var_heap,expression_heap)
+					= supercompile dcl_mods main_dcl_module_n fun_defs var_heap expression_heap
+				-> (components, fun_defs, dcl_types, used_conses_in_dynamics, var_heap, type_heaps, expression_heap)
 			FS_none
 			    -> (components, fun_defs, dcl_types, used_conses_in_dynamics, var_heap, type_heaps, expression_heap)
 // ..VZ