clean up example code

2012-06-14 15:55:07 -05:00 · 2012-06-14 15:55:07 -05:00 · c68b464fcd
commit c68b464fcd
parent 5e902b2191
1 changed files with 0 additions and 1 deletions
--- a/collects/scribblings/guide/contracts-examples/1b.rkt
+++ b/collects/scribblings/guide/contracts-examples/1b.rkt
@ -13,7 +13,6 @@
  (if (pair? x) (car x) x))

 (define (active? c)
-  (define f (find c))
  (pair? (find c)))

 (define not-active? (compose not active? basic-customer-id))