diff options
Diffstat (limited to 'test-suite/vm/t-basic-contructs.scm')
-rw-r--r-- | test-suite/vm/t-basic-contructs.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test-suite/vm/t-basic-contructs.scm b/test-suite/vm/t-basic-contructs.scm new file mode 100644 index 000000000..53ee81dcd --- /dev/null +++ b/test-suite/vm/t-basic-contructs.scm @@ -0,0 +1,16 @@ +;;; Basic RnRS constructs. + +(and (eq? 2 (begin (+ 2 4) 5 2)) + ((lambda (x y) + (and (eq? x 1) (eq? y 2) + (begin + (set! x 11) (set! y 22) + (and (eq? x 11) (eq? y 22))))) + 1 2) + (let ((x 1) (y 3)) + (and (eq? x 1) (eq? y 3))) + (let loop ((x #t)) + (if (not x) + #t + (loop #f)))) + |