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

fix ls/0.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-11-22 18:22:53 +00:00
parent a2286354c8
commit 576d37510c
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/utils.yap
View File

@ -220,9 +220,17 @@ cd :-
ls :- ls :-
getcwd(X), getcwd(X),
system:directory_files(X, L), '$load_system_ls'(X,L),
'$do_print_files'(L). '$do_print_files'(L).
'$load_system_ls'(X,L) :-
'$undefined'(directory_files(X, L), operating_system_support),
load_files(library(system),[silent(true)]),
fail.
'$load_system_ls'(X,L) :-
operating_system_support:directory_files(X, L).
'$do_print_files'([]) :- '$do_print_files'([]) :-
nl. nl.
'$do_print_files'([F| Fs]) :- '$do_print_files'([F| Fs]) :-