salmonella-common: simpler code for rmdir in delete-path

mario-goulart · mario-goulart · commit 338db1b7ce94 · 2015-11-09T22:27:47.000-02:00
diff --git a/salmonella-common.scm b/salmonella-common.scm
@@ -33,9 +33,9 @@
     (let ((files (find name)))
       (for-each
        (lambda (f)
-         ((cond ((symbolic-link? f) delete-file)
-                ((directory? f) delete-directory)
-                (else delete-file))
+         ((if (directory? f)
+              delete-directory
+              delete-file)
           f))
        files)
       (delete-directory name)))
