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

Diff of /gcl/o/array.c

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

revision 1.34 by camm, Fri Jan 7 17:58:34 2005 UTC revision 1.35 by camm, Sat May 7 02:45:38 2005 UTC
# Line 1066  DEFUNO_NEW("ARRAY-DIMENSION",object,fLar Line 1066  DEFUNO_NEW("ARRAY-DIMENSION",object,fLar
1066     IisArray(x);     IisArray(x);
1067     return make_fixnum(x->v.v_dim);     return make_fixnum(x->v.v_dim);
1068  }  }
1069    #ifdef STATIC_FUNCTION_POINTERS
1070    object
1071    fLarray_dimension(object x,fixnum i) {
1072      return FFN(fLarray_dimension)(x,i);
1073    }
1074    #endif
1075    
1076  static void  static void
1077  Icheck_displaced(object displaced_list, object ar, int dim)  Icheck_displaced(object displaced_list, object ar, int dim)

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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