995
995
%% InOrOut = in | out | [in | out]
996
996
%% TypesOrArgs = types | args | [types | args]
997
997
%%------------------------------------------------------------
998
mk_par_type_list(G, N, X,
999
InOrOut, TypesOrArgs, Types, Args) when atom(InOrOut) ->
1000
mk_par_type_list(G, N, X, [InOrOut], TypesOrArgs, Types, Args);
1001
mk_par_type_list(G, N, X, InOrOut,
1003
mk_par_type_list(G, N, X, InOrOut, [TypesOrArgs], Types, Args);
1004
998
mk_par_type_list(G, N, X, InOrOut, TypesOrArgs, Types, Args) ->