Revision 35a186be87ca6f1dcb07fa606792395c3492b8bf authored by Ian Butterworth on 08 April 2021, 01:07:31 UTC, committed by GitHub on 08 April 2021, 01:07:31 UTC
* fold repeated `LoadError :` prints during showerror * Only print a single LoadError: prefix
1 parent 263451e
mkboot0.lsp
; -*- scheme -*-
(if (not (bound? 'top-level-value)) (set! top-level-value %eval))
(if (not (bound? 'set-top-level-value!)) (set! set-top-level-value! set))
(if (not (bound? 'eof-object?)) (set! eof-object? (lambda (x) #f)))
;(load "compiler.lsp")
(define (compile-file inf)
(let ((in (file inf :read)))
(let next ((E (read in)))
(if (not (io.eof? in))
(begin (print (compile-thunk (expand E)))
(princ "\n")
(next (read in)))))
(io.close in)))
(define (do-boot0)
(for-each (lambda (file)
(compile-file file))
(cdr *argv*)))
(do-boot0)
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...