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

Diff of /gcl/o/num_sfun.c

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

revision 1.6.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.6.6.2 by camm, Thu Nov 6 16:16:52 2003 UTC
# Line 501  number_tan(object x) Line 501  number_tan(object x)
501          return(r);          return(r);
502  }  }
503    
504  void  LFD(Lexp)(void)
 Lexp(void)  
505  {  {
506          check_arg(1);          check_arg(1);
507          check_type_number(&vs_base[0]);          check_type_number(&vs_base[0]);
508          vs_base[0] = number_exp(vs_base[0]);          vs_base[0] = number_exp(vs_base[0]);
509  }  }
510    
511  void  LFD(Lexpt)(void)
 Lexpt(void)  
512  {  {
513          check_arg(2);          check_arg(2);
514          check_type_number(&vs_base[0]);          check_type_number(&vs_base[0]);
# Line 519  Lexpt(void) Line 517  Lexpt(void)
517          vs_popp;          vs_popp;
518  }  }
519    
520  void  LFD(Llog)(void)
 Llog(void)  
521  {  {
522          int narg;          int narg;
523                    
# Line 539  Llog(void) Line 536  Llog(void)
536                  too_many_arguments();                  too_many_arguments();
537  }  }
538    
539  void  LFD(Lsqrt)(void)
 Lsqrt(void)  
540  {  {
541          check_arg(1);          check_arg(1);
542          check_type_number(&vs_base[0]);          check_type_number(&vs_base[0]);
543          vs_base[0] = number_sqrt(vs_base[0]);          vs_base[0] = number_sqrt(vs_base[0]);
544  }  }
545    
546  void  LFD(Lsin)(void)
 Lsin(void)  
547  {  {
548          check_arg(1);          check_arg(1);
549          check_type_number(&vs_base[0]);          check_type_number(&vs_base[0]);
550          vs_base[0] = number_sin(vs_base[0]);          vs_base[0] = number_sin(vs_base[0]);
551  }  }
552    
553  void  LFD(Lcos)(void)
 Lcos(void)  
554  {  {
555          check_arg(1);          check_arg(1);
556          check_type_number(&vs_base[0]);          check_type_number(&vs_base[0]);
557          vs_base[0] = number_cos(vs_base[0]);          vs_base[0] = number_cos(vs_base[0]);
558  }  }
559    
560  void  LFD(Ltan)(void)
 Ltan(void)  
561  {  {
562          check_arg(1);          check_arg(1);
563          check_type_number(&vs_base[0]);          check_type_number(&vs_base[0]);
564          vs_base[0] = number_tan(vs_base[0]);          vs_base[0] = number_tan(vs_base[0]);
565  }  }
566    
567  void  LFD(Latan)(void)
 Latan(void)  
568  {  {
569          int narg;          int narg;
570    
# Line 592  Latan(void) Line 584  Latan(void)
584  }  }
585    
586  static void  static void
587  siLmodf(void)  FFN(siLmodf)(void)
588  {  {
589        
590    object x;    object x;

Legend:
Removed from v.1.6.6.1  
changed lines
  Added in v.1.6.6.2

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