diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid unnecessary backtracking.

Browse Source
This commit is contained in:
Costa Vitor 2009-08-19 20:23:20 -05:00
parent 84646ee581
commit 6453cf5ae7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/lineutils.yap
View File

@ -109,7 +109,7 @@ filter(StreamInp, StreamOut, Command) :-
( (
Line == end_of_file Line == end_of_file
-> ->
true !
; ;
call(Command, Line, NewLine), call(Command, Line, NewLine),
format(StreamOut, '~s~n', [NewLine]), format(StreamOut, '~s~n', [NewLine]),
@ -123,7 +123,7 @@ process(StreamInp, Command) :-
( (
Line == end_of_file Line == end_of_file
-> ->
true !
; ;
call(Command, Line), call(Command, Line),
fail fail