Rebol Programming/delete-dir

= USAGE: = DELETE-DIR dir

= DESCRIPTION: = Deletes a directory including all files and subdirectories.

DELETE-DIR is a function value. = ARGUMENTS =
 * dir -- (Type: file url)

= SOURCE CODE = delete-dir: func [ {Deletes a directory including all files and subdirectories.} dir [file! url!] /local files ][   if all [ dir? dir dir: dirize dir attempt [files: load dir] ] [       foreach file files [delete-dir dir/:file] ]    attempt [delete dir] ]