boot2

Playing with the boostrap
git clone https://git.ryansepassi.com/git/boot2.git
Log | Files | Refs | README

tier2-tcc-driver.scm (394B)

      1 ;; Tier 2 acceptance driver (canonical form): scheme1 spawns tcc0 (the
      2 ;; cc.scm-built bootstrap C compiler) to compile a .c source into a
      3 ;; relocatable object, waits for the child, and exits with the child's
      4 ;; status. The OS-TODO item 11 fixture.
      5 (let ((r (run "child-prog" "-nostdlib" "-c" "-o" "out.o" "input.c")))
      6   (if (and (car r) (= 0 (cdr r)))
      7       (sys-exit 0)
      8       (sys-exit 1)))