#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.")))