Mercurial > hg > Applications > Tokio

diff cp.pl @ 3:92791d7fbf21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Sat, 01 Sep 2007 21:10:23 +0900
parents 61743469ee56
children
line wrap: on
line diff
--- a/cp.pl	Fri Aug 31 23:33:02 2007 +0900
+++ b/cp.pl	Sat Sep 01 21:10:23 2007 +0900
@@ -48,7 +48,8 @@
 
 ttyflush :- flush_output.
 
-nofileerrors.
+nofileerrors :- prolog_flag(fileerrors,off,_).
+fileerrors :- prolog_flag(fileerrors,on,_).
 
 tab(0) :-!.
 tab(N) :- N>0, N1 is N-1,write(' '),tab(N1).