===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/extern.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM/src/kan96xx/Kan/extern.h	2000/01/16 07:55:38	1.2
+++ OpenXM/src/kan96xx/Kan/extern.h	2000/02/02 03:30:48	1.3
@@ -1,4 +1,4 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/extern.h,v 1.2 2000/01/16 07:55:38 takayama Exp $ */
 /*********** global variables for module stackmachine***************/
 extern int VerboseStack;
 extern int DebugStack;
@@ -75,6 +75,7 @@ void KSpush(struct object ob);
 char * KSstringPop(void);
 int KSstackPointer(void);
 struct object KSdupErrors(void);
+struct object KSpeek(int k);
 
 /* stackmachine.c context */
 struct context *newContext0(struct context *super,char *name);