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
@ -31,3 +31,5 @@
 (define (generate-unique-name type-string)
  (string-append type-string 
 		 (number->string (generate-unique-number))))
+
+(define identity (lambda (a) a))