[bpt/guile.git] / test-suite / vm / t-or.scm

;; 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))))
Commit	Line	Data
7e4760e4 AW	1	;; all the different permutations of or
	2	(list
	3	;; not in tail position, no args
	4	(or)
	5	;; not in tail position, one arg
	6	(or 'what)
	7	(or #f)
	8	;; not in tail position, two arg
	9	(or 'what 'where)
	10	(or #f 'where)
	11	(or #f #f)
	12	(or 'what #f)
535ed4d0 AW	13	;; not in tail position, value discarded
535ed4d0 AW	14	(begin (or 'what (error "two")) 'two)
7e4760e4 AW	15	;; in tail position (within the lambdas)
	16	((lambda ()
	17	(or)))
	18	((lambda ()
	19	(or 'what)))
	20	((lambda ()
	21	(or #f)))
	22	((lambda ()
	23	(or 'what 'where)))
	24	((lambda ()
	25	(or #f 'where)))
	26	((lambda ()
	27	(or #f #f)))
	28	((lambda ()
	29	(or 'what #f))))