Lines Matching refs:lambda
67 (assert-eq? (tn) #f (pair? (lambda () #t)))
73 (assert-error (tn) (lambda () (pair? else)))
75 (assert-error (tn) (lambda () (pair? do)))))
78 (lambda (k)
104 (assert-error (tn) (lambda () (car '()))))
110 (assert-error (tn) (lambda () (car #f))))
111 (assert-error (tn) (lambda () (car #t)))
114 (assert-error (tn) (lambda () (car (eof))))
115 (assert-error (tn) (lambda () (car (undef))))))
116 (assert-error (tn) (lambda () (car 0)))
117 (assert-error (tn) (lambda () (car 1)))
118 (assert-error (tn) (lambda () (car 3)))
119 (assert-error (tn) (lambda () (car -1)))
120 (assert-error (tn) (lambda () (car -3)))
121 (assert-error (tn) (lambda () (car 'symbol)))
122 (assert-error (tn) (lambda () (car 'SYMBOL)))
123 (assert-error (tn) (lambda () (car #\a)))
124 (assert-error (tn) (lambda () (car #\あ)))
125 (assert-error (tn) (lambda () (car "")))
126 (assert-error (tn) (lambda () (car " ")))
127 (assert-error (tn) (lambda () (car "a")))
128 (assert-error (tn) (lambda () (car "A")))
129 (assert-error (tn) (lambda () (car "aBc12!")))
130 (assert-error (tn) (lambda () (car "あ")))
131 (assert-error (tn) (lambda () (car "あ0イう12!")))
132 (assert-error (tn) (lambda () (car +)))
133 (assert-error (tn) (lambda () (car (lambda () #t))))
139 (assert-error (tn) (lambda () (car else)))
141 (assert-error (tn) (lambda () (car do)))))
144 (lambda (k)
145 (assert-error (tn) (lambda () (car k)))))
146 (assert-error (tn) (lambda () (car (current-output-port))))
151 (assert-error (tn) (lambda () (car '#())))
152 (assert-error (tn) (lambda () (car (vector))))
153 (assert-error (tn) (lambda () (car '#(0 1 2))))
154 (assert-error (tn) (lambda () (car (vector 0 1 2))))
163 (assert-error (tn) (lambda () (cdr '()))))
169 (assert-error (tn) (lambda () (cdr #f))))
170 (assert-error (tn) (lambda () (cdr #t)))
173 (assert-error (tn) (lambda () (cdr (eof))))
174 (assert-error (tn) (lambda () (cdr (undef))))))
175 (assert-error (tn) (lambda () (cdr 0)))
176 (assert-error (tn) (lambda () (cdr 1)))
177 (assert-error (tn) (lambda () (cdr 3)))
178 (assert-error (tn) (lambda () (cdr -1)))
179 (assert-error (tn) (lambda () (cdr -3)))
180 (assert-error (tn) (lambda () (cdr 'symbol)))
181 (assert-error (tn) (lambda () (cdr 'SYMBOL)))
182 (assert-error (tn) (lambda () (cdr #\a)))
183 (assert-error (tn) (lambda () (cdr #\あ)))
184 (assert-error (tn) (lambda () (cdr "")))
185 (assert-error (tn) (lambda () (cdr " ")))
186 (assert-error (tn) (lambda () (cdr "a")))
187 (assert-error (tn) (lambda () (cdr "A")))
188 (assert-error (tn) (lambda () (cdr "aBc12!")))
189 (assert-error (tn) (lambda () (cdr "あ")))
190 (assert-error (tn) (lambda () (cdr "あ0イう12!")))
191 (assert-error (tn) (lambda () (cdr +)))
192 (assert-error (tn) (lambda () (cdr (lambda () #t))))
198 (assert-error (tn) (lambda () (cdr else)))
200 (assert-error (tn) (lambda () (cdr do)))))
203 (lambda (k)
204 (assert-error (tn) (lambda () (cdr k)))))
205 (assert-error (tn) (lambda () (cdr (current-output-port))))
210 (assert-error (tn) (lambda () (cdr '#())))
211 (assert-error (tn) (lambda () (cdr (vector))))
212 (assert-error (tn) (lambda () (cdr '#(0 1 2))))
213 (assert-error (tn) (lambda () (cdr (vector 0 1 2))))
218 (lambda (kons x)
221 (assert-error (tn) (lambda() (set-car! '() 2)))
222 (assert-error (tn) (lambda() (set-car! (list) 2)))
235 (assert-error (tn) (lambda () (set-car! '(0) 2)))
236 (assert-error (tn) (lambda () (set-car! '(0 . 1) 2)))
237 (assert-error (tn) (lambda () (set-car! '(0 1) 2)))
238 (assert-error (tn) (lambda () (set-car! '(0 1 . 2) 2))))
247 (lambda (kons x)
250 (assert-error (tn) (lambda() (set-cdr! '() 2)))
251 (assert-error (tn) (lambda() (set-cdr! (list) 2)))
264 (assert-error (tn) (lambda () (set-cdr! '(0) 2)))
265 (assert-error (tn) (lambda () (set-cdr! '(0 . 1) 2)))
266 (assert-error (tn) (lambda () (set-cdr! '(0 1) 2)))
267 (assert-error (tn) (lambda () (set-cdr! '(0 1 . 2) 2))))
350 (assert-error "caar empty list" (lambda () (caar '())))
351 (assert-error "cadr empty list" (lambda () (cadr '())))
352 (assert-error "cdar empty list" (lambda () (cdar '())))
353 (assert-error "cddr empty list" (lambda () (cddr '())))
354 (assert-error "caddr empty list" (lambda () (caddr '())))
355 (assert-error "cdddr empty list" (lambda () (cdddr '())))
359 (assert-error "caaar empty list" (lambda () (caaar '())))
360 (assert-error "caadr empty list" (lambda () (caadr '())))
361 (assert-error "cadar empty list" (lambda () (cadar '())))
362 (assert-error "cdaar empty list" (lambda () (cdaar '())))
363 (assert-error "cdadr empty list" (lambda () (cdadr '())))
364 (assert-error "cddar empty list" (lambda () (cddar '())))
365 (assert-error "caaaar empty list" (lambda () (caaaar '())))
366 (assert-error "caaadr empty list" (lambda () (caaadr '())))
367 (assert-error "caadar empty list" (lambda () (caadar '())))
368 (assert-error "caaddr empty list" (lambda () (caaddr '())))
369 (assert-error "cadaar empty list" (lambda () (cadaar '())))
370 (assert-error "cadadr empty list" (lambda () (cadadr '())))
371 (assert-error "caddar empty list" (lambda () (caddar '())))
372 (assert-error "cadddr empty list" (lambda () (cadddr '())))
373 (assert-error "cdaaar empty list" (lambda () (cdaaar '())))
374 (assert-error "cdaadr empty list" (lambda () (cdaadr '())))
375 (assert-error "cdadar empty list" (lambda () (cdadar '())))
376 (assert-error "cdaddr empty list" (lambda () (cdaddr '())))
377 (assert-error "cddaar empty list" (lambda () (cddaar '())))
378 (assert-error "cddadr empty list" (lambda () (cddadr '())))
379 (assert-error "cdddar empty list" (lambda () (cdddar '())))
380 (assert-error "cddddr empty list" (lambda () (cddddr '())))))))
382 (assert-error "caar insufficient list" (lambda () (caar '(0 . 1))))
383 (assert-error "cadr insufficient list" (lambda () (cadr '(0 . 1))))
384 (assert-error "cdar insufficient list" (lambda () (cdar '(0 . 1))))
385 (assert-error "cddr insufficient list" (lambda () (cddr '(0 . 1))))
386 (assert-error "caddr insufficient list" (lambda () (caddr '(0 . 1))))
387 (assert-error "cdddr insufficient list" (lambda () (cdddr '(0 . 1))))
391 (assert-error "caaar insufficient list" (lambda () (caaar '(0 . 1))))
392 (assert-error "caadr insufficient list" (lambda () (caadr '(0 . 1))))
393 (assert-error "cadar insufficient list" (lambda () (cadar '(0 . 1))))
394 (assert-error "cdaar insufficient list" (lambda () (cdaar '(0 . 1))))
395 (assert-error "cdadr insufficient list" (lambda () (cdadr '(0 . 1))))
396 (assert-error "cddar insufficient list" (lambda () (cddar '(0 . 1))))
397 (assert-error "caaaar insufficient list" (lambda () (caaaar '(0 . 1))))
398 (assert-error "caaadr insufficient list" (lambda () (caaadr '(0 . 1))))
399 (assert-error "caadar insufficient list" (lambda () (caadar '(0 . 1))))
400 (assert-error "caaddr insufficient list" (lambda () (caaddr '(0 . 1))))
401 (assert-error "cadaar insufficient list" (lambda () (cadaar '(0 . 1))))
402 (assert-error "cadadr insufficient list" (lambda () (cadadr '(0 . 1))))
403 (assert-error "caddar insufficient list" (lambda () (caddar '(0 . 1))))
404 (assert-error "cadddr insufficient list" (lambda () (cadddr '(0 . 1))))
405 (assert-error "cdaaar insufficient list" (lambda () (cdaaar '(0 . 1))))
406 (assert-error "cdaadr insufficient list" (lambda () (cdaadr '(0 . 1))))
407 (assert-error "cdadar insufficient list" (lambda () (cdadar '(0 . 1))))
408 (assert-error "cdaddr insufficient list" (lambda () (cdaddr '(0 . 1))))
409 (assert-error "cddaar insufficient list" (lambda () (cddaar '(0 . 1))))
410 (assert-error "cddadr insufficient list" (lambda () (cddadr '(0 . 1))))
411 (assert-error "cdddar insufficient list" (lambda () (cdddar '(0 . 1))))
412 (assert-error "cddddr insufficient list" (lambda () (cddddr '(0 . 1))))))
414 (assert-error "caar invalid object" (lambda () (caar #t)))
415 (assert-error "cadr invalid object" (lambda () (cadr #t)))
416 (assert-error "cdar invalid object" (lambda () (cdar #t)))
417 (assert-error "cddr invalid object" (lambda () (cddr #t)))
418 (assert-error "caddr invalid object" (lambda () (caddr #t)))
419 (assert-error "cdddr invalid object" (lambda () (cdddr #t)))
423 (assert-error "caaar invalid object" (lambda () (caaar #t)))
424 (assert-error "caadr invalid object" (lambda () (caadr #t)))
425 (assert-error "cadar invalid object" (lambda () (cadar #t)))
426 (assert-error "cdaar invalid object" (lambda () (cdaar #t)))
427 (assert-error "cdadr invalid object" (lambda () (cdadr #t)))
428 (assert-error "cddar invalid object" (lambda () (cddar #t)))
429 (assert-error "caaaar invalid object" (lambda () (caaaar #t)))
430 (assert-error "caaadr invalid object" (lambda () (caaadr #t)))
431 (assert-error "caadar invalid object" (lambda () (caadar #t)))
432 (assert-error "caaddr invalid object" (lambda () (caaddr #t)))
433 (assert-error "cadaar invalid object" (lambda () (cadaar #t)))
434 (assert-error "cadadr invalid object" (lambda () (cadadr #t)))
435 (assert-error "caddar invalid object" (lambda () (caddar #t)))
436 (assert-error "cadddr invalid object" (lambda () (cadddr #t)))
437 (assert-error "cdaaar invalid object" (lambda () (cdaaar #t)))
438 (assert-error "cdaadr invalid object" (lambda () (cdaadr #t)))
439 (assert-error "cdadar invalid object" (lambda () (cdadar #t)))
440 (assert-error "cdaddr invalid object" (lambda () (cdaddr #t)))
441 (assert-error "cddaar invalid object" (lambda () (cddaar #t)))
442 (assert-error "cddadr invalid object" (lambda () (cddadr #t)))
443 (assert-error "cdddar invalid object" (lambda () (cdddar #t)))
444 (assert-error "cddddr invalid object" (lambda () (cddddr #t)))))