added hcl_block_t to express a base block. no more reuse of hcl_context_t for the base block

lib/print.c

@@ -88,6 +88,7 @@ enum
 	WORD_PRIM,
 
 	WORD_FUNCTION,
+	WORD_BLOCK,
 	WORD_CONTEXT,
 	WORD_PROCESS,
 	WORD_PROCESS_SCHEDULER,
@@ -109,6 +110,7 @@ static struct
 	{  7,  { '#','<','P','R','I','M','>' } },
 
 	{  11, { '#','<','F','U','N','C','T','I','O','N','>' } },
+	{  11, { '#','<','B','L','O','C','K','>' } },
 	{  10, { '#','<','C','O','N','T','E','X','T','>' } },
 	{  10, { '#','<','P','R','O','C','E','S','S','>' } },
 	{  20, { '#','<','P','R','O','C','E','S','S','-','S','C','H','E','D','U','L','E','R','>' } },
@@ -663,6 +665,10 @@ next:
 			word_index = WORD_FUNCTION;
 			goto print_word;
 
+		case HCL_BRAND_BLOCK:
+			word_index = WORD_BLOCK;
+			goto print_word;
+
 		case HCL_BRAND_CONTEXT:
 			word_index = WORD_CONTEXT;
 			goto print_word;