upscheme/scheme-core/mkboot0.scm

26 lines
733 B
Scheme
Raw Normal View History

; -*- 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 "dump.scm")
;(load "compiler.scm")
(define (compile-file->buffer inf)
(let ((in (file inf :read))
(out (buffer)))
(let next ((E (read in)))
(if (not (io.eof? in))
(begin (write (compile-thunk (expand E)) out)
(xnewline out)
(next (read in)))))
(io.close in)
(io.seek out 0)
out))
(dump-buffers-as-c-literal
(compile-file->buffer "system.scm")
2019-08-15 16:05:23 -04:00
(compile-file->buffer "aliases.scm")
(compile-file->buffer "compiler.scm"))