1;; A fast-loading script to delete "cstartup.inc" if it's not cify output 2(module compile-startup '#%kernel 3 (define-values (dest) (vector-ref (current-command-line-arguments) 0)) 4 (if (file-exists? dest) 5 (if (call-with-input-file dest (lambda (i) 6 (let-values ([(line) (read-line i)]) 7 (if (string? line) 8 (regexp-match? #rx"^/[*] version" line) 9 #f)))) 10 (void) 11 (delete-file dest)) 12 (void))) 13