boot2

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

026-bitwise.scm (270B)

      1 ; bit-and, bit-or, arithmetic-shift on tagged fixnums.
      2 (define x (bit-or (bit-and #x33 #x0f) #x20))   ; 0x23 = 35
      3 (define y (arithmetic-shift x -1))             ; 17
      4 (define z (arithmetic-shift y 2))              ; 68
      5 (sys-exit (+ y z))                             ; 85