===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/stackmachine.c,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -p -r1.42 -r1.43
--- OpenXM/src/kan96xx/Kan/stackmachine.c	2016/03/31 06:34:29	1.42
+++ OpenXM/src/kan96xx/Kan/stackmachine.c	2018/09/07 00:15:44	1.43
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.41 2016/03/31 05:27:34 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/stackmachine.c,v 1.42 2016/03/31 06:34:29 takayama Exp $ */
 /*   stackmachin.c */
 
 #include <stdio.h>
@@ -1315,6 +1315,11 @@ KSdefineMacros() {
 
 }
 
+void KSstart_quiet() {
+  extern int Quiet;
+  Quiet=1;
+  KSstart();
+}
 void KSstart() {
   struct tokens token;
   int tmp;