boot2

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

032-bv-copy.scm (434B)

      1 ; 3-arg bytevector-copy: produces a fresh bv of length end-start.
      2 (define src (make-bytevector 6 0))
      3 (bytevector-u8-set! src 0 9)
      4 (bytevector-u8-set! src 1 8)
      5 (bytevector-u8-set! src 2 7)
      6 (bytevector-u8-set! src 3 6)
      7 (bytevector-u8-set! src 4 5)
      8 (bytevector-u8-set! src 5 4)
      9 (define c (bytevector-copy src 2 5))   ; bytes [7 6 5]
     10 (sys-exit (+ (+ (bytevector-u8-ref c 0) (bytevector-u8-ref c 1))
     11              (bytevector-u8-ref c 2)))