From 532220cd1ec9ecdfab6da7a68030e9f55bc0afa4 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 22 Jun 2001 14:46:40 +0000
Subject: print node_defs in GuardNode

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@497 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 backendC/CleanCompilerSources/dbprint.c | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'backendC/CleanCompilerSources')

diff --git a/backendC/CleanCompilerSources/dbprint.c b/backendC/CleanCompilerSources/dbprint.c
index 4b7a201..12a6a63 100644
--- a/backendC/CleanCompilerSources/dbprint.c
+++ b/backendC/CleanCompilerSources/dbprint.c
@@ -398,7 +398,6 @@ void PrintRuleNode (Node node,Bool brackets,int n_leading_spaces,File file)
 		PrintSymbol (node->node_symbol, file);
 		FPutS (" [ ",file);
 
-		FPutS (" ",file);
 		{
 			NodeIdRefCountListP node_id_ref_count_elem;
 			
@@ -509,7 +508,18 @@ void PrintRuleNode (Node node,Bool brackets,int n_leading_spaces,File file)
 	case GuardNode:
 		FPutS ("Guard ",file);
 		PrintArguments (node->node_arguments,'\n',True,n_leading_spaces,file);
-		break;	
+		
+		if (node->node_node_defs!=NULL){
+			FPutC ('\n', file);
+			print_spaces (n_leading_spaces,file);
+			FPutS ("{\n",file);
+			PrintNodeDefs (node->node_node_defs,n_leading_spaces+4,file);
+			print_spaces (n_leading_spaces,file);
+			FPutS ("}\n", file);
+			print_spaces (n_leading_spaces,file);
+		}
+
+		break;
 	case TupleSelectorsNode:
 		FPutS ("TupleSelectors (",file);
 		PrintArguments (node->node_arguments,',',True,n_leading_spaces,file);
-- 
cgit v1.2.3