mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
aa592f96b0
* testsuite: Move to... * test-suite/vm: ... here. * Makefile.am (SUBDIRS): Remove `testsuite'. * configure.ac: Output `test-suite/vm/Makefile' instead of `testsuite/Makefile'. * test-suite/Makefile.am (SUBDIRS): Add `vm'.
16 lines
328 B
Scheme
16 lines
328 B
Scheme
;;; 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))))
|
|
|