blob: 0c581e9c71ae3f5c7c6fef0f2a7898d3f71bde58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
;; 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))))
|