Make directory path: Difference between revisions
Content added Content deleted
(Added OCaml) |
m (→{{header|OCaml}}: fix file permissions) |
||
| Line 508: | Line 508: | ||
| p::ps -> |
| p::ps -> |
||
let this = String.concat Filename.dir_sep (List.rev (p::acc)) in |
let this = String.concat Filename.dir_sep (List.rev (p::acc)) in |
||
Unix.mkdir this |
Unix.mkdir this perms; |
||
aux (p::acc) ps |
aux (p::acc) ps |
||
in |
in |
||