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,5 +3,7 @@
3	load_ast(AST) :- load_ast(_>[], [], AST).	3	load_ast(AST) :- load_ast(_>[], [], AST).
4		4
5	load_ast(end_of_file, AST, AST).	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