scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add identity function

This commit is contained in:
interp 2003-04-16 12:20:12 +00:00
parent eb5f44b932
commit e3652a93b2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/surflets/utilities.scm
View File

@ -30,4 +30,6 @@
;; FIXME: consider creating small names ;; FIXME: consider creating small names
(define (generate-unique-name type-string) (define (generate-unique-name type-string)
(string-append type-string (string-append type-string
(number->string (generate-unique-number)))) (number->string (generate-unique-number))))
(define identity (lambda (a) a))