boot2

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

tier2-driver.scm (199B)

      1 ;; Tier 2 acceptance driver: spawn the chain stage, wait, return status.
      2 (let ((r (run "child-prog" "out.txt" "in1" "in2")))
      3   (if (and (car r) (= 0 (cdr r)))
      4       (sys-exit 0)
      5       (sys-exit 1)))