/[gcl]/gcl/o/error.c
ViewVC logotype

Diff of /gcl/o/error.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by camm, Tue Feb 18 04:01:04 2003 UTC revision 1.15 by camm, Thu Feb 27 15:50:59 2003 UTC
# Line 777  vfun_wrong_number_of_args(object x) Line 777  vfun_wrong_number_of_args(object x)
777    
778  void  void
779  check_arg_range(int n, int m)  check_arg_range(int n, int m)
780  {  if (VFUN_NARGS < n)  {  
781       Icall_error_handler(    object x,x1;
782                           sKtoo_few_arguments,  
783      x=make_fixnum(n);
784      x1=make_fixnum(VFUN_NARGS);
785      if (VFUN_NARGS < n)
786        Icall_error_handler(
787                            sKtoo_few_arguments,
788                           make_simple_string("Needed at least ~D args, but received ~d"),                           make_simple_string("Needed at least ~D args, but received ~d"),
789                           2,make_fixnum(n),make_fixnum(VFUN_NARGS));                           2,x,x1);
790     else if (VFUN_NARGS > m)     else if (VFUN_NARGS > m)
791            Icall_error_handler(            Icall_error_handler(
792                           sKtoo_many_arguments,                           sKtoo_many_arguments,
793                           make_simple_string("Needed no more than ~D args, but received ~d"),                           make_simple_string("Needed no more than ~D args, but received ~d"),
794                           2,make_fixnum(m),make_fixnum(VFUN_NARGS));                           2,x,x1);
795   }   }
796                                                    
797            

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26