48e2ef5910
Rephrase comments that pointed at deleted Janet files (emit.janet, the seed
sources, 'the Janet back end punts ...') to present-tense descriptions of the
Chez behavior. Comment/docstring-only; the self-host fixpoint is unchanged
(comments don't affect the compiled seed).
Delete five files that were Janet-host shims with no Chez path: clojure.java.io
(provided natively by host/chez/io.ss), and jolt.{nrepl,png,interop,shell}
(the janet.* bridge, os/shell, janet.net — none exist on Chez).
jolt-cf1q.6
42 lines
1.9 KiB
Scheme
42 lines
1.9 KiB
Scheme
;; bootstrap.ss (jolt-9phg, Phase 3 inc9a) — the pure-Chez self-build.
|
|
;;
|
|
;; This is the zero-Janet build step. Given a SEED (prelude, image) pair — the
|
|
;; bootstrap compiler, minted once via the inc8 fixpoint and checked in under
|
|
;; host/chez/seed/ — it loads them, then rebuilds the clojure.core prelude AND the
|
|
;; compiler image from the .clj/.ss sources using the ON-CHEZ compiler (emit-image.ss),
|
|
;; writing fresh artifacts. No Janet is invoked: read -> analyze -> emit all run on
|
|
;; Chez. The seed is a JOINT fixpoint, so a rebuild from an up-to-date seed
|
|
;; reproduces it byte-for-byte (`make selfhost` checks this); when
|
|
;; the sources change, run it twice to reconverge and re-mint the seed.
|
|
;;
|
|
;; Run from the repo root:
|
|
;; chez --script host/chez/bootstrap.ss SEED-PRELUDE SEED-IMAGE OUT-PRELUDE OUT-IMAGE
|
|
(import (chezscheme))
|
|
|
|
(define bs-args (cdr (command-line))) ; drop the script name
|
|
(when (< (length bs-args) 4)
|
|
(display "usage: bootstrap.ss SEED-PRELUDE SEED-IMAGE OUT-PRELUDE OUT-IMAGE\n")
|
|
(exit 2))
|
|
(define bs-seed-prelude (list-ref bs-args 0))
|
|
(define bs-seed-image (list-ref bs-args 1))
|
|
(define bs-out-prelude (list-ref bs-args 2))
|
|
(define bs-out-image (list-ref bs-args 3))
|
|
|
|
;; Load the runtime + the SEED compiler (prelude for macros, image for the
|
|
;; analyzer/emitter), exactly as the zero-Janet spine assembles a program.
|
|
(load "host/chez/rt.ss")
|
|
(set-chez-ns! "clojure.core")
|
|
(load bs-seed-prelude)
|
|
(load "host/chez/post-prelude.ss")
|
|
(set-chez-ns! "user")
|
|
(load "host/chez/host-contract.ss")
|
|
(load bs-seed-image)
|
|
(load "host/chez/compile-eval.ss")
|
|
(load "host/chez/emit-image.ss")
|
|
|
|
;; Rebuild both artifacts from source ON CHEZ and write them out.
|
|
(let ((p (open-output-file bs-out-prelude 'replace)))
|
|
(put-string p (jolt-emit-prelude)) (close-port p))
|
|
(let ((p (open-output-file bs-out-image 'replace)))
|
|
(put-string p (jolt-emit-image)) (close-port p))
|
|
(display "bootstrap: rebuilt prelude + compiler image on Chez (no Janet)\n")
|