boot2

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

054-char-literal.scm (538B)

      1 ; Character literals are disjoint from integers; conversion is explicit.
      2 (if (= (char->integer #\a) 97)    0 (sys-exit 1))
      3 (if (= (char->integer #\Z) 90)    0 (sys-exit 2))
      4 (if (= (char->integer #\!) 33)    0 (sys-exit 3))
      5 (if (= (char->integer #\~) 126)   0 (sys-exit 4))
      6 (if (= (char->integer #\x41) 65)  0 (sys-exit 5))
      7 (if (= (char->integer #\x7f) 127) 0 (sys-exit 6))
      8 (if (= (char->integer #\xff) 255) 0 (sys-exit 7))
      9 (if (= (char->integer #\xFF) 255) 0 (sys-exit 8))
     10 (if (= (char->integer #\x00041) 65) 0 (sys-exit 9))
     11 (sys-exit 0)