Skip to main content

Browse the archive

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 
Only print a single `LoadError:` prefix for nested LoadErrors during showerror (#38725)
 
* fold repeated `LoadError :` prints during showerror

* Only print a single LoadError: prefix
1 parent 263451e
Raw File
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)
back to top