debugging code

Salvador Abreu
1 parent 420a353a
Showing 1 changed file with 3 additions and 1 deletions Show diff stats
fzn-parser/fznslurp.pl
@@ -3,5 +3,7 @@
 load_ast(AST) :- load_ast(_>[], [], AST).
  
 load_ast(end_of_file, AST, AST).
-load_ast(IN > INT,    IN,  OUT) :- read(OP), load_ast(OP, INT, OUT).
+load_ast(IN > INT,    IN,  OUT) :- read(OP), !,
+				   write(OP), nl,
+				   load_ast(OP, INT, OUT).
...	...	@@ -3,5 +3,7 @@
3	3	load_ast(AST) :- load_ast(_>[], [], AST).
4	4
5	5	load_ast(end_of_file, AST, AST).
6		-load_ast(IN > INT, IN, OUT) :- read(OP), load_ast(OP, INT, OUT).
	6	+load_ast(IN > INT, IN, OUT) :- read(OP), !,
	7	+ write(OP), nl,
	8	+ load_ast(OP, INT, OUT).
7	9
...	...