Added check for scrbl directory existence

This commit is contained in:
2026-08-11 20:44:32 +02:00
parent 55419558a7
commit 24051225ac
+2 -2
View File
@@ -9,7 +9,8 @@
(target clean (target clean
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t)) (for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
(for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc)$" #:recursive #t)) (for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc)$" #:recursive #t))
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$")) (when (directory-exists? "scrbl")
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$")))
) )
(target package (target package
@@ -28,7 +29,6 @@
(displayln "Pushing...") (displayln "Pushing...")
(dgit 'push))) (dgit 'push)))
) )
(target windows (target windows
(deps housekeeping) (deps housekeeping)