Add identity function

2003-04-16 12:20:12 +00:00 · 2003-04-16 12:20:12 +00:00 · e3652a93b2
parent eb5f44b932
commit e3652a93b2
1 changed files with 3 additions and 1 deletions
--- 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))))
+		 (number->string (generate-unique-number))))
+
+(define identity (lambda (a) a))