minor code change

lib/comp2.c

@@ -300,6 +300,7 @@ static int emit_byte_instruction (hcl_t* hcl, hcl_oob_t bc, const hcl_ioloc_t* s
 
 	if (srcloc)
 	{
+		
 		hcl->code.locptr[hcl->code.bc.len] = srcloc->line;
 	}
 

lib/hcl.h

@@ -552,7 +552,7 @@ struct hcl_function_t
 	hcl_oop_t nargs;  /* smooi. number of arguments */
 	hcl_oop_context_t home; /* home context. nil for the initial function */
 
-	hcl_oop_t dbgi_file_offset;
+	hcl_oop_t dbgi; /* byte array containing debug information. nil if not available */
 
 	/* == variable indexed part == */
 	hcl_oop_t literal_frame[1]; /* it stores literals. it may not exist */

lib/read2.c

@@ -1033,7 +1033,7 @@ retry:
 		{
 			int n;
 
-			n = end_include (hcl);
+			n = end_include(hcl);
 			if (n <= -1) return -1;
 			if (n >= 1) goto retry;