test-suite/vm/t-basic-contructs.scm

   1 ;;; Basic RnRS constructs.
   2
   3 (and (eq? 2 (begin (+ 2 4) 5 2))
   4      ((lambda (x y)
   5         (and (eq? x 1) (eq? y 2)
   6              (begin
   7                (set! x 11) (set! y 22)
   8                (and (eq? x 11) (eq? y 22)))))
   9       1 2)
  10      (let ((x 1) (y 3))
  11        (and (eq? x 1) (eq? y 3)))
  12      (let loop ((x #t))
  13        (if (not x)
  14            #t
  15            (loop #f))))
  16