22 lines
609 B
Racket
22 lines
609 B
Racket
|
|
(syntax-test #'(lambda (z z) 10))
|
|
|
|
(define f7 (lambda (y) (lambda (z) z)))
|
|
(test #t procedure? f7)
|
|
(test 778 (lambda (x) 778) 'ignored)
|
|
|
|
(test values (lambda (f) (f f)) values)
|
|
|
|
(define (f11 y) ((lambda (x) x) y))
|
|
(test 'id f11 'id)
|
|
|
|
(err/rt-test (1 2 3))
|
|
|
|
(htdp-syntax-test #'(recur empty-f () 10) "recur: expected a function name after recur, but nothing's there"
|
|
(htdp-syntax-test #'(local [(lambda (x) x)] 1) "local: expected a definition, but found a part")
|
|
|
|
(htdp-syntax-test #'((unquote-splicing (list 10))) "unquote-splicing: misuse of ,@ or unquote-splicing, not under a quasiquoting backquote")
|
|
|
|
|
|
|