mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-07-05 11:33:15 +00:00
Code Issues 1 Releases Wiki Activity

Make rmrf stronger.

Browse Source
This commit is contained in:
Calvin Rose 2024-05-26 09:09:04 -05:00
parent de977819ce
commit 2fafe2b5d1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/boot/boot.janet
View File

@ -4030,10 +4030,11 @@
"rm -rf in janet" "rm -rf in janet"
[x] [x]
(case (os/stat x :mode) (case (os/stat x :mode)
:file (os/rm x) nil nil
:directory (do :directory (do
(each y (os/dir x) (rmrf (string x "/" y))) (each y (os/dir x) (rmrf (string x "/" y)))
(os/rmdir x))) (os/rmdir x))
(os/rm x))
nil) nil)
(defn- copyfile (defn- copyfile