boot2

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

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

      1 ; bytevector?, string?, and bytes? distinguish the standard types while
      2 ; exposing the explicit boot2 bridge. number? mirrors integer?.
      3 
      4 ; bytevector?
      5 (if (not (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 (if (string? "abc") 0 (sys-exit 12))
     11 (if (not (string? (make-bytevector 3 0))) 0 (sys-exit 13))
     12 (if (bytes? "abc") 0 (sys-exit 14))
     13 (if (bytes? (make-bytevector 3 0)) 0 (sys-exit 15))
     14 (if (not (bytes? 0)) 0 (sys-exit 16))
     15 
     16 ; number?
     17 (if (number? 0) 0 (sys-exit 6))
     18 (if (number? -7) 0 (sys-exit 7))
     19 (if (number? 42) 0 (sys-exit 8))
     20 (if (not (number? "0")) 0 (sys-exit 9))
     21 (if (not (number? '())) 0 (sys-exit 10))
     22 (if (not (number? 'sym)) 0 (sys-exit 11))
     23 
     24 (sys-exit 0)