blob: 53ee81dcdb87168ff8f8c2f49b326b0db1287e04 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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))))
|