avoid unnecessary backtracking.

2009-08-19 20:23:20 -05:00 · 2009-08-19 20:23:20 -05:00 · 6453cf5ae7
commit 6453cf5ae7
parent 84646ee581
1 changed files with 2 additions and 2 deletions
--- a/library/lineutils.yap
+++ b/library/lineutils.yap
@ -109,7 +109,7 @@ filter(StreamInp, StreamOut, Command) :-
 	(
 	 Line == end_of_file
 	->
-	 true
+	 !
 	;
 	 call(Command, Line, NewLine),
 	 format(StreamOut, '~s~n', [NewLine]),
@ -123,7 +123,7 @@ process(StreamInp, Command) :-
 	(
 	 Line == end_of_file
 	->
-	 true
+	 !
 	;
 	 call(Command, Line),
 	 fail