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