===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/stackmachine.c,v
retrieving revision 1.3
retrieving revision 1.6
diff -u -p -r1.3 -r1.6
--- OpenXM/src/kan96xx/Kan/stackmachine.c	2000/01/21 01:08:12	1.3
+++ OpenXM/src/kan96xx/Kan/stackmachine.c	2001/01/27 05:48:46	1.6
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.2 2000/01/16 07:55:41 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.5 2000/11/20 13:33:22 takayama Exp $ */
 /*   stackmachin.c */
 
 #include <stdio.h>
@@ -14,7 +14,8 @@
 /* #define OPERAND_STACK_SIZE  2000 */
 #define OPERAND_STACK_SIZE 30000 
 #define SYSTEM_DICTIONARY_SIZE 200
-#define USER_DICTIONARY_SIZE   1223
+/* #define USER_DICTIONARY_SIZE   1223, 3581 */
+#define USER_DICTIONARY_SIZE  27449
 /* The value of USER_DICTIONARY_SIZE must be prime number, because of hashing
    method */
 #define ARGV_WORK_MAX  (AGLIMIT+100)
@@ -1195,6 +1196,10 @@ void KSpush(ob)
 struct object ob;
 {
   Kpush(ob);
+}
+
+struct object KSpeek(k) {
+  return(peek(k));
 }
 
 char *KSstringPop() {