#lang racket (require racket-makefile) (makefile 'cleanup-example (default-target 'all) (phony 'all 'clean) (target 'all (displayln "use (make 'clean)")) (target 'clean (display "cleaning up...") (apply rm-rf (list-dirs "." #px"compiled$" #:recursive #t)) (apply rm-f (list-files "." #px"(?i:([.]bak|~)$)" #:recursive #t)) (displayln "done.")))