From d952a05ea9cbc974e65dd45b04adbf752bfd3b50 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sat, 6 Aug 2011 20:58:45 -0400
Subject: [PATCH] Make `mzlib/etc' reprovide `identity' from `racket/function'.

---
 collects/mzlib/etc.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/mzlib/etc.rkt b/collects/mzlib/etc.rkt
index bb72508e63..376d0a8bb9 100644
--- a/collects/mzlib/etc.rkt
+++ b/collects/mzlib/etc.rkt
@@ -2,8 +2,10 @@
 
 (require setup/main-collects
          racket/local
-         racket/bool 
+         racket/bool
          racket/block
+         (only racket/function
+               identity)
          (only scheme/base
                build-string
                build-list
@@ -51,8 +53,6 @@
 
          begin-lifted)
 
-(define identity (lambda (x) x))
-
 (define (loop-until start done? next body)
   (let loop ([i start])
     (unless (done? i)