export function make_symbol_name in module graph_copy_with_names

Libraries/graph_copy/graph_copy_with_names.dcl

@@ -8,3 +8,4 @@ from symbols_in_program import ::Symbol;
 copy_to_string_with_names :: a -> (!*{#Char},!*{#DescInfo},!*{#String});
 copy_from_string_with_names :: !*{#Char} !*{#DescInfo} !*{#String} !{#Symbol} -> (.a,!Int);
 
+make_symbol_name :: !String !String !Int -> String;

Libraries/graph_copy/graph_copy_with_names.icl

@@ -314,6 +314,7 @@ get_thunk_n_non_pointers d
 		# b_size = arity>>8;
 		= b_size;
 
+make_symbol_name :: !String !String !Int -> String;
 make_symbol_name "_system" descriptor_name prefix
 	= case descriptor_name of {
 		"INT"