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'.
29 lines
576 B
Scheme
29 lines
576 B
Scheme
;; all the different permutations of or
|
|
(list
|
|
;; not in tail position, no args
|
|
(or)
|
|
;; not in tail position, one arg
|
|
(or 'what)
|
|
(or #f)
|
|
;; not in tail position, two arg
|
|
(or 'what 'where)
|
|
(or #f 'where)
|
|
(or #f #f)
|
|
(or 'what #f)
|
|
;; not in tail position, value discarded
|
|
(begin (or 'what (error "two")) 'two)
|
|
;; in tail position (within the lambdas)
|
|
((lambda ()
|
|
(or)))
|
|
((lambda ()
|
|
(or 'what)))
|
|
((lambda ()
|
|
(or #f)))
|
|
((lambda ()
|
|
(or 'what 'where)))
|
|
((lambda ()
|
|
(or #f 'where)))
|
|
((lambda ()
|
|
(or #f #f)))
|
|
((lambda ()
|
|
(or 'what #f))))
|