boot2

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

006-min3-align.scm (624B)

      1 ;; tests/cc-util/06-min3-align.scm — already-real helpers, smoke test.
      2 ;; Assumes cc/util.scm is loaded.
      3 
      4 (if (= (min3 1 2 3) 1)     0 (sys-exit 1))
      5 (if (= (min3 3 2 1) 1)     0 (sys-exit 2))
      6 (if (= (min3 5 5 5) 5)     0 (sys-exit 3))
      7 (if (= (min3 -1 0 5) -1)   0 (sys-exit 4))
      8 
      9 ;; align-up: round up to multiple of k (k must be a power of 2)
     10 (if (= (align-up 0 8) 0)    0 (sys-exit 5))
     11 (if (= (align-up 1 8) 8)    0 (sys-exit 6))
     12 (if (= (align-up 8 8) 8)    0 (sys-exit 7))
     13 (if (= (align-up 9 8) 16)   0 (sys-exit 8))
     14 (if (= (align-up 17 4) 20)  0 (sys-exit 9))
     15 (if (= (align-up 0 1) 0)    0 (sys-exit 10))
     16 
     17 (sys-exit 0)