This commit is contained in:
Vitor Santos Costa
2018-10-13 08:42:41 +01:00
parent 67cc23725f
commit a33f2be18b
5 changed files with 47 additions and 37 deletions

View File

@@ -41,7 +41,7 @@ rdir( FRoot ) :-
absolute_file_name( FRoot, [glob(*), solutions(all), file_errors(fail)], File ),
\+ doskip( File ),
(
catch( file_property( File, type(directory) ), _, fail )
cat zzch( file_property( File, type(directory) ), _, fail )
->
assert_new( dir( File ) ),
assert_new( sub_dir( FRoot, File ) ),