Notes re lecture 1

[lambda.git] / damn2.rkt

diff --git a/damn2.rkt b/damn2.rkt
new file mode 100644 (file)
index 0000000..be328fd
--- /dev/null
+++ b/damn2.rkt
@@ -0,0 +1,11 @@
+#lang racket
+;(define damn (lambda () 'id))
+(define damn (lambda () (call/cc (lambda (k) 
+                                  ; (k 'id)
+                                   (print "Something's bad")
+                                   (k 'id)
+                                   ))))
+
+(list (list 'the (list (damn) 'man))
+      (list 'read 
+            (list 'the (list (damn) 'book))))