===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/primitive.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM/src/kan96xx/Kan/primitive.c	1999/10/08 02:12:02	1.1
+++ OpenXM/src/kan96xx/Kan/primitive.c	1999/11/07 13:24:19	1.2
@@ -1,3 +1,4 @@
+/* $OpenXM$ */
 /*   primitive.c */
 /*  The functions in this module were in stackmachine.c */
 
@@ -299,8 +300,9 @@ FILE *fp;
 {
   int size;
   int i;
+  extern char *LeftBracket, *RightBracket;
   size = ob.lc.ival;
-  fprintf(fp,"[  ");
+  fprintf(fp,"%s  ",LeftBracket);
   for (i=0; i<size; i++) {
     if (PrintComma && (i != 0)) {
       fprintf(fp," , ");
@@ -309,7 +311,7 @@ FILE *fp;
     }
     printObject((ob.rc.op)[i],0,fp);
   }
-  fprintf(fp," ] ");
+  fprintf(fp," %s ",RightBracket);
   if (nl) fprintf(fp,"\n");
 }