boot2

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

150-pmatch-mixed-bytes.scm (289B)


      1 ; Byte-literal pmatch is the one structural matcher widened by boot2.
      2 (if (= 42
      3        (pmatch (bytevector 97 98 99)
      4          ("abc" 42)
      5          (else 0)))
      6     0 (sys-exit 1))
      7 (if (= 43
      8        (pmatch "abc"
      9          (#u8(97 98 99) 43)
     10          (else 0)))
     11     0 (sys-exit 2))
     12 (sys-exit 0)