(def update-compiler void) (let ((C NIL))  (def (eval x)    (set! C (cons (compile-thunk (macroexpand x))                  C)))  (load "instructions.sl" eval)  (load "compiler.sl" eval)  (set! update-compiler        (λ () (for-each (λ (x) (x)) (reverse! C))              (set! update-compiler void)))) (def (compile-file inf)  (let ((in  (file inf :read)))    (let next ((E (read in)))      (unless (io-eof? in)        (print (compile-thunk (macroexpand E)))        (newline)        (next (read in))))    (io-close in))) (def (do-boot0)  (for-each (λ (file) (compile-file file))            (cdr *argv*))) (update-compiler)(do-boot0)