From c68b464fcd8df29210ff52d96fe3926bd42ba06b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 14 Jun 2012 15:55:07 -0500 Subject: [PATCH] clean up example code --- collects/scribblings/guide/contracts-examples/1b.rkt | 1 - 1 file changed, 1 deletion(-) diff --git a/collects/scribblings/guide/contracts-examples/1b.rkt b/collects/scribblings/guide/contracts-examples/1b.rkt index 2f744ebd13..97877eb3a6 100644 --- 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))