#lang racket (require raco/command-name "private/es.rkt") (define source-files (command-line #:program (short-program+command-name) #:args source-file source-file)) (let ([argv (current-command-line-arguments)]) (if (= 0 (vector-length argv)) (printf "Usage: ~a [<source-file>] ...~n" (short-program+command-name)) (for ([filename argv]) (compile-file filename))))