===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/lib/xm,v
retrieving revision 1.1.1.1
retrieving revision 1.3
diff -u -p -r1.1.1.1 -r1.3
--- OpenXM_contrib2/asir2000/lib/xm	1999/12/03 07:39:11	1.1.1.1
+++ OpenXM_contrib2/asir2000/lib/xm	2000/01/16 06:28:00	1.3
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/asir99/lib/xm,v 1.4 1999/11/18 03:22:07 takayama Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/lib/xm,v 1.2 1999/12/11 13:50:13 takayama Exp $ */
 /**  xm  **/
 Xm_noX = 0$  
 /* 1 : using X-window system. 0 : not using X-window system. */
@@ -6,7 +6,7 @@ Xm_noX = 0$  
          cf. var.sm1,  debugMode
 */
 
-print("xm Version 19991118. ox_help(0); ox_help(\"keyword\"); for help message ")$
+print("xm Version 20000116. ox_help(0); ox_help(\"keyword\"); for help message ")$
 
 
 /*&C-texi
@@ -38,9 +38,9 @@ ToAsir_Debug = 0$
 
 def ox_help(A) {
   if (type(A) == 0) {
-    shell("ls "+getenv("OpenXM_HOME")+"/lib/asir/help/xm.eg.help");
+    shell("ls "+getenv("OpenXM_HOME")+"/lib/asir/help/xm.help");
   }else{
-    help("xm.eg.help/"+A)$
+    help("xm.help/"+A)$
   }
 }
 
@@ -130,6 +130,8 @@ def ox_check_errors2(P) {
   }
   return(P);
 }
+
+def first(A) {return(A[0]);}
 
 load("sm1")$
 load("gnuplot")$