Lines Matching refs:lambda
48 (assert-error (tn) (lambda () (eq? '() (values))))
49 (assert-error (tn) (lambda () (eq? '() (apply values '()))))
50 (assert-error (tn) (lambda () (eq? '() (values . 1))))
51 (assert-error (tn) (lambda () (eq? '() (values 1 2))))
52 (assert-error (tn) (lambda () (eq? '() (apply values '(1 2)))))
53 (assert-error (tn) (lambda () (eq? '() (values 1 . 2))))
57 (assert-error (tn) (lambda () (eval '(define foo (values 1 2 3))
60 (assert-error (tn) (lambda () (eval '(set! foo (values 1 2 3))
63 (assert-error (tn) (lambda () (define bar (values 1 2 3))))
65 (assert-error (tn) (lambda () (let ((bar (values 1 2 3))) #t)))
66 (assert-error (tn) (lambda () (let* ((bar (values 1 2 3))) #t)))
67 (assert-error (tn) (lambda () (letrec ((bar (values 1 2 3))) #t)))
68 (assert-error (tn) (lambda () (if (values 1 2 3) #t)))
69 (assert-error (tn) (lambda () (and (values 1 2 3) #t)))
70 (assert-error (tn) (lambda () (or (values 1 2 3) #t)))
71 (assert-error (tn) (lambda () (cond ((values 1 2 3) #t) (else #t))))
72 (assert-error (tn) (lambda () (case (values 1 2 3) (else #t))))
73 (assert-error (tn) (lambda () (begin (values 1 2 3) #t)))
74 (assert-error (tn) (lambda () ((lambda () (values 1 2 3) #t))))
105 (assert-error (tn) (lambda ()
107 (assert-error (tn) (lambda ()
109 (assert-error (tn) (lambda ()
111 (assert-error (tn) (lambda ()
122 (lambda () (values))
123 (lambda () 'ok)))
127 (lambda () (values))
128 (lambda args args)))
132 (lambda () (apply values '()))
133 (lambda () 'ok)))
137 (lambda () (apply values '()))
138 (lambda args args)))
143 (lambda () (values 1))
144 (lambda (x) x)))
148 (lambda () (values 1))
149 (lambda args args)))
153 (lambda () (apply values '(1)))
154 (lambda (x) x)))
158 (lambda () (apply values '(1)))
159 (lambda args args)))
164 (lambda () (values 1 2))
165 (lambda (x y) (list x y))))
169 (lambda () (values 1 2))
170 (lambda args args)))
174 (lambda () (apply values '(1 2)))
175 (lambda (x y) (list x y))))
179 (lambda () (apply values '(1 2)))
180 (lambda args args)))
190 (list (lambda () (values))
191 (lambda () 'ok))))
195 (list (lambda () (values))
196 (lambda args args))))
200 (list (lambda () (apply values '()))
201 (lambda () 'ok))))
205 (list (lambda () (apply values '()))
206 (lambda args args))))
211 (list (lambda () (values 1))
212 (lambda (x) x))))
216 (list (lambda () (values 1))
217 (lambda args args))))
221 (list (lambda () (apply values '(1)))
222 (lambda (x) x))))
226 (list (lambda () (apply values '(1)))
227 (lambda args args))))
232 (list (lambda () (values 1 2))
233 (lambda (x y) (list x y)))))
237 (list (lambda () (values 1 2))
238 (lambda args args))))
242 (list (lambda () (apply values '(1 2)))
243 (lambda (x y) (list x y)))))
247 (list (lambda () (apply values '(1 2)))
248 (lambda args args))))
254 ((lambda (n)
256 (lambda () (values 2 3 n))
257 (lambda (dummy1 dummy2 n2)