Commit | Line | Data |
---|---|---|
23b587b0 LC |
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 |