diff --git a/fzn-parser/fznslurp.pl b/fzn-parser/fznslurp.pl index ba2f8c3..24a7e5d 100644 --- a/fzn-parser/fznslurp.pl +++ b/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). -- libgit2 0.21.2