boot2

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

14-io.scm (325B)

      1 ;; I/O surface: display write newline format read-file write-file.
      2 (write "io:")
      3 (newline)
      4 (display "abc")
      5 (newline)
      6 (format "~a ~s ~d~%" (quote ok) "qq" 7)
      7 (write-file "build/io-out.txt" "done")
      8 (if (equal? (read-file "tests/lisp/io-read.txt") "seed")
      9   (if (equal? (read-file "build/io-out.txt") "done")
     10     42
     11     0)
     12   0)