boot2

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

149-target-bindings.scm (396B)


      1 (if (fd-port? stdin) 0 (sys-exit 1))
      2 (if (procedure? fd-read-line/result) 0 (sys-exit 2))
      3 (if (procedure? fd-write-string/result) 0 (sys-exit 3))
      4 (if (procedure? peek-memory-u8) 0 (sys-exit 4))
      5 (if (pair? (argv)) 0 (sys-exit 5))
      6 (if (or (= (target-word-bytes) 4) (= (target-word-bytes) 8))
      7     0 (sys-exit 6))
      8 (if (= (target-word-bits) (* 8 (target-word-bytes)))
      9     0 (sys-exit 7))
     10 (sys-exit 0)