===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2018/engine/nd.c,v
retrieving revision 1.21
retrieving revision 1.23
diff -u -p -r1.21 -r1.23
--- OpenXM_contrib2/asir2018/engine/nd.c	2019/09/19 06:29:48	1.21
+++ OpenXM_contrib2/asir2018/engine/nd.c	2020/02/05 04:56:10	1.23
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.20 2019/09/15 08:46:12 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.22 2019/11/21 01:54:01 noro Exp $ */
 
 #include "nd.h"
 
@@ -754,7 +754,7 @@ int ndl_module_compare(UINT *d1,UINT *d2)
 
   switch ( nd_module_ordtype ) {
     case 0:
-      if ( (c = ndl_lex_compare(d1,d2)) != 0 ) return c;
+      if ( (c = (*ndl_base_compare_function)(d1,d2)) != 0 ) return c;
       else if ( MPOS(d1) > MPOS(d2) ) return -1;
       else if ( MPOS(d1) < MPOS(d2) ) return 1;
       else return 0;
@@ -5538,7 +5538,7 @@ void dpm_sort(DPM p,DPM *rp)
 
 int dpm_comp(DPM *a,DPM *b)
 {
-  return compdpm(CO,*a,*b);
+  return -compdpm(CO,*a,*b);
 }
 
 NODE dpm_sort_list(NODE l)