#lang racket-makefile (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."))