boot2

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

048-display-write.scm (931B)

      1 ; Verify display and write across the value spaces.
      2 ;
      3 ; display emits human-readable output; write emits reader-compatible
      4 ; datums for strings, bytevectors, and characters.  Boot2 retains raw
      5 ; bytevector display for compiler diagnostics.
      6 (define (newline) (display (make-bytevector 1 10)))
      7 
      8 (define hi (make-bytevector 2 0))
      9 (bytevector-u8-set! hi 0 104)
     10 (bytevector-u8-set! hi 1 105)
     11 
     12 (display 42) (newline)
     13 (display -7) (newline)
     14 (display 'foo) (newline)
     15 (display '()) (newline)
     16 (display #t) (newline)
     17 (display #f) (newline)
     18 (display '(1 2 3)) (newline)
     19 (display '(1 . 2)) (newline)
     20 (display '(a (b c) d)) (newline)
     21 (display hi) (newline)
     22 (display "string") (newline)
     23 (display #\A) (newline)
     24 
     25 (write 42) (newline)
     26 (write 'foo) (newline)
     27 (write '(1 2 3)) (newline)
     28 (write hi) (newline)
     29 (write "string") (newline)
     30 (write "a\n\x0;b") (newline)
     31 (write #\A) (newline)
     32 (write #\space) (newline)
     33 (write #\x7f) (newline)
     34 
     35 (sys-exit 0)