===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/gr.c,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -p -r1.8 -r1.10
--- OpenXM_contrib2/asir2000/builtin/gr.c	2000/08/21 08:31:19	1.8
+++ OpenXM_contrib2/asir2000/builtin/gr.c	2000/09/08 02:56:32	1.10
@@ -23,7 +23,7 @@
  * shall be made on your publication or presentation in any form of the
  * results obtained by use of the SOFTWARE.
  * (4) In the event that you modify the SOFTWARE, you shall notify FLL by
- * e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification
+ * e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification
  * for such modification or the source code of the modified part of the
  * SOFTWARE.
  * 
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.7 2000/07/14 08:26:39 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.9 2000/08/22 05:03:58 noro Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
@@ -1499,7 +1499,8 @@ NODE subst;
 		if ( m ) {
 			get_eg(&tspm0);
 			_dp_sp_mod_dup(psm[l->dp1],psm[l->dp2],m,&h);
-			new_sugar = h->sugar;
+			if ( h )
+				new_sugar = h->sugar;
 			get_eg(&tspm1); add_eg(&eg_spm,&tspm0,&tspm1);
 			get_eg(&tnfm0);
 			_dp_nf_mod_destructive(gall,h,psm,m,0,&nfm);
@@ -1525,7 +1526,8 @@ NODE subst;
 				STOQ(l->dp1,q); ARG1(BDY((LIST)BDY(NEXT(TraceList)))) = q;
 				STOQ(l->dp2,q); ARG1(BDY((LIST)BDY(TraceList))) = q;
 			}
-			new_sugar = h->sugar;
+			if ( h )
+				new_sugar = h->sugar;
 			get_eg(&tsp1); add_eg(&eg_sp,&tsp0,&tsp1);
 			get_eg(&tnf0);
 			t_0 = get_rtime();