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

*** empty log message ***

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1682 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2006-08-04 04:06:33 +00:00
parent d7b73e6886
commit 089e864621
3 changed files with 25 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
library/readutil.yap
View File

@@ -30,11 +30,6 @@
read_stream_to_codes(Stream, Codes) :-
read_stream_to_codes(Stream, Codes, []).
read_file_to_codes(File, Codes) :-
open(File, read, Stream),
read_stream_to_codes(Stream, Codes, []),
close(Stream).
read_file_to_codes(File, Codes, _) :-
open(File, read, Stream),
read_stream_to_codes(Stream, Codes, []),
@@ -42,7 +37,7 @@ read_file_to_codes(File, Codes, _) :-
read_file_to_codes(File, Codes) :-
open(File, read, Stream),
read_stream_to_terms(Stream, Codes, []),
read_stream_to_codes(Stream, Codes, []),
close(Stream).
read_file_to_terms(File, Codes, _) :-