From e3652a93b2eab4877a42e8767ebe921f5f2b5b72 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Wed, 16 Apr 2003 12:20:12 +0000
Subject: [PATCH] Add identity function

---
 scheme/httpd/surflets/utilities.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/httpd/surflets/utilities.scm b/scheme/httpd/surflets/utilities.scm
index f193cb7..94d559f 100644
--- a/scheme/httpd/surflets/utilities.scm
+++ b/scheme/httpd/surflets/utilities.scm
@@ -30,4 +30,6 @@
 ;; FIXME: consider creating small names
 (define (generate-unique-name type-string)
   (string-append type-string 
-		 (number->string (generate-unique-number))))
\ No newline at end of file
+		 (number->string (generate-unique-number))))
+
+(define identity (lambda (a) a))