3 ; returns (os filename)
6 (if (null? x) 'darwin ; todo: replace this with the os
9 (or (equal? (car x) "-t")
10 (equal? (car x) "--target"))
14 (else (error #f "unknown os")))
16 (define (parse-file x)
19 (or (equal? (car x) "-t")
20 (equal? (car x) "--target"))
23 (let ((args (cdr (command-line))))
24 (list (parse-os args) (parse-file args))))
27 (define target (car (parse-args)))
28 (define file (cadr (parse-args)))
31 (if (eqv? file 'stdin)
33 (call-with-input-file file read))