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

Diff of /gcl/o/num_log.c

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

revision 1.3 by wfs, Tue May 15 05:58:28 2001 UTC revision 1.4 by camm, Thu Jun 13 00:00:46 2002 UTC
# Line 691  siLbit_array_op() Line 691  siLbit_array_op()
691                    object b[F_ARG_LIMIT];                    object b[F_ARG_LIMIT];
692                    for (i = 0;  i < x->a.a_rank;  i++)                    for (i = 0;  i < x->a.a_rank;  i++)
693                      b[i] = (make_fixnum(x->a.a_dims[i]));                      b[i] = (make_fixnum(x->a.a_dims[i]));
694                    r=Iapply_fun_n(fSmake_array1,5,x->a.a_rank,                    r=Iapply_fun_n1(fSmake_array1,5,x->a.a_rank,
695                                 aet_bit,                                 aet_bit,
696                                 Cnil,                                 Cnil,
697                                 small_fixnum(0),                                 small_fixnum(0),

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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