boot2

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

079-bv-num-aliases.scm (631B)

      1 ; bytevector? and number? — prelude aliases. bytevector? mirrors string?
      2 ; (one HDR.BV repr); number? mirrors integer? (only fixnums today).
      3 
      4 ; bytevector?
      5 (if (bytevector? "abc") 0 (sys-exit 1))
      6 (if (bytevector? (make-bytevector 3 0)) 0 (sys-exit 2))
      7 (if (not (bytevector? 0)) 0 (sys-exit 3))
      8 (if (not (bytevector? '())) 0 (sys-exit 4))
      9 (if (not (bytevector? 'foo)) 0 (sys-exit 5))
     10 
     11 ; number?
     12 (if (number? 0) 0 (sys-exit 6))
     13 (if (number? -7) 0 (sys-exit 7))
     14 (if (number? 42) 0 (sys-exit 8))
     15 (if (not (number? "0")) 0 (sys-exit 9))
     16 (if (not (number? '())) 0 (sys-exit 10))
     17 (if (not (number? 'sym)) 0 (sys-exit 11))
     18 
     19 (sys-exit 0)