This commit is contained in:
Vítor Santos Costa 2015-11-05 17:22:17 +00:00
parent f8fc35a548
commit e2cac6279c

View File

@ -76,11 +76,11 @@ ls :-
'$do_print_files'(L). '$do_print_files'(L).
'$load_system_ls'(X,L) :- '$load_system_ls'(X,L) :-
'$undefined'(directory_files(X, L), operating_system_support), '$undefined'(directory_files(X, L), system),
load_files(library(system),[silent(true)]), load_files(library(system),[silent(true)]),
fail. fail.
'$load_system_ls'(X,L) :- '$load_system_ls'(X,L) :-
operating_system_support:directory_files(X, L). system:directory_files(X, L).
'$do_print_files'([]) :- '$do_print_files'([]) :-