Update rmrf again to be more strict and failure early

This commit is contained in:
Calvin Rose
2024-05-26 09:40:18 -05:00
parent 074ae4fc0d
commit 6968275ddf
+3 -2
View File
@@ -4040,8 +4040,9 @@
(rmrf (string x s y)))
(try
(os/rmdir x)
([e f] (debug/stacktrace f e)
(each y (os/dir x) (eprint " - " y)))))
([e f]
(each y (os/dir x) (eprint " - " y))
(propagate e f))))
(os/rm x))
nil)