Index: mttroot/mtt/bin/trans/m/alias_args.m ================================================================== --- mttroot/mtt/bin/trans/m/alias_args.m +++ mttroot/mtt/bin/trans/m/alias_args.m @@ -3,10 +3,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.3 1998/08/11 14:09:05 peterg +## Replaced incorrect length(args>0) with !isempty(args) +## ## Revision 1.2 1998/07/27 10:24:20 peterg ## Included , in the the list of seperators (SEPS) ## This makes it substitute for bits of args separated by commas. ## ## Revision 1.1 1998/07/03 18:29:40 peterg @@ -26,11 +29,11 @@ eval(["new_arg = alias.", arg_,";"]); mtt_info(["Replacing ", arg, "\t by ",\ new_arg, message],FileID); arg = new_arg; end - SEPS = ",+-*/"; + SEPS = ",+-*/()"; for j = 1:length(SEPS) if length(findstr(arg,SEPS(j)))>0 arg = alias_args(arg,alias,SEPS(j),message,FileID); end end;