rename predicate

Salvador Abreu
1 parent c105ab51
Showing 1 changed file with 7 additions and 0 deletions Show diff stats
fzn-parser/fznslurp.pl
@@ -0,0 +1,7 @@
+% == No, Emacs this is -*-Prolog-*- code, not what you thought... =============
+
+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).
+
@@ -0,0 +1,7 @@		@@ -0,0 +1,7 @@
	1	+% == No, Emacs this is --Prolog-- code, not what you thought... =============
	2	+
	3	+load_ast(AST) :- load_ast(_>[], [], AST).
	4	+
	5	+load_ast(end_of_file, AST, AST).
	6	+load_ast(IN > INT, IN, OUT) :- read(OP), load_ast(OP, INT, OUT).
	7	+