damn tweaks11
[lambda.git] / damn2.rkt
1 #lang racket
2 ;(define damn (lambda () 'id))
3 (define damn (lambda () (call/cc (lambda (k) 
4                                   ; (k 'id)
5                                    (print "Something's bad")
6                                    (k 'id)
7                                    ))))
8
9 (list (list 'the (list (damn) 'man))
10       (list 'read 
11             (list 'the (list (damn) 'book))))