lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
upscheme/scheme-core/mkboot0.scm

21 lines
591 B
Scheme
Raw Normal View History

updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
; -*- scheme -*-
finishing initial implementation of keyword arguments fixing up interpreter so it can be used for bootstrapping again removing let/copyenv optimization because it really didn't seem to help much
2009-08-02 00:06:07 -04:00
(if (not (bound? 'top-level-value)) (set! top-level-value %eval))
(if (not (bound? 'set-top-level-value!)) (set! set-top-level-value! set))
changing semantics to respect lexical scope more strictly; now anything can be shadowed by closer nested variables fixing bugs in let-syntax and expanding optional arg default values improving expansion algorithm on internal define some small optimizations to the compiler maintaining interpreter for bootstrapping
2009-08-12 00:56:32 -04:00
(if (not (bound? 'eof-object?)) (set! eof-object? (lambda (x) #f)))
updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
Consolidate all Lisp files into scheme-* with .scm extension
2019-08-09 08:21:56 -04:00
;(load "compiler.scm")
updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
(define (compile-file inf)
(let ((in (file inf :read)))
(let next ((E (read in)))
(if (not (io.eof? in))
Clean up whitespace - Tabs to spaces - Remove invisible whitespace at ends of lines - Break or shorten long lines (not for all files)
2019-08-09 10:18:36 -04:00
(begin (print (compile-thunk (expand E)))
(princ "\n")
(next (read in)))))
updating interpreter to work better for bootstrapping adding program mkboot0, which can be run in the interpreter to compile source files into a stage-0 boot image.
2009-04-22 20:55:03 -04:00
(io.close in)))
(for-each (lambda (file)
Clean up whitespace - Tabs to spaces - Remove invisible whitespace at ends of lines - Break or shorten long lines (not for all files)
2019-08-09 10:18:36 -04:00
(compile-file file))
(cdr *argv*))