boot2

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

073-bit-xor-not.scm (538B)

      1 ; bit-xor (2-arg), bit-not (1-arg).
      2 
      3 (if (= 0       (bit-xor 0 0))         0 (sys-exit 1))
      4 (if (= #x0f    (bit-xor #x0f 0))      0 (sys-exit 2))
      5 (if (= 0       (bit-xor #x0f #x0f))   0 (sys-exit 3))
      6 (if (= #x33    (bit-xor #x55 #x66))   0 (sys-exit 4))
      7 (if (= -1      (bit-xor 0 -1))        0 (sys-exit 5))
      8 
      9 (if (= -1      (bit-not 0))           0 (sys-exit 6))
     10 (if (= 0       (bit-not -1))          0 (sys-exit 7))
     11 (if (= -2      (bit-not 1))           0 (sys-exit 8))
     12 (if (= 4       (bit-not -5))          0 (sys-exit 9))
     13 
     14 (sys-exit 0)