delete CommonLisp,ML from index
[lambda.git] / damn.rkt
1 #lang racket
2 ;((lambda () (list 'John (list 'read (list 'the (list ((lambda () 'id)) 'book))))))
3
4 ;(define damn (lambda () 'id))
5
6 (define damn (lambda () (call/cc (lambda (k) (raise (list "Something's bad" k))))))
7
8 (call-with-exception-handler
9  (lambda (e) (print (first e)) ((second e) 'id)) ; this is the exception handler
10  (lambda ()
11    (list (list 'the (list (damn) 'man))
12          (list 'read
13                (list 'the
14                      (list (damn) 'book))))))