boot2

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

111-cwv-rest.scm (417B)

      1 ; Variadic consumer: rest formals collect all yielded values into a list.
      2 
      3 (if (equal? (list 1 2 3)
      4             (call-with-values
      5               (lambda () (values 1 2 3))
      6               (lambda args args)))
      7     0 (sys-exit 1))
      8 
      9 ; Single-value yield arrives as a 1-list.
     10 (if (equal? (list 7)
     11             (call-with-values
     12               (lambda () 7)
     13               (lambda args args)))
     14     0 (sys-exit 2))
     15 
     16 (sys-exit 0)