remove forgotten generate-unique-name

2003-03-10 17:11:41 +00:00 · 2003-03-10 17:11:41 +00:00 · d1c7b4e9d3
parent ec341accf9
commit d1c7b4e9d3
1 changed files with 0 additions and 7 deletions
--- a/scheme/httpd/surflets/input-fields.scm
+++ b/scheme/httpd/surflets/input-fields.scm
@ -31,13 +31,6 @@
       (eq? *input-field-trigger* (car input-field))
       (real-input-field? (cadr input-field))))

-;; FIXME: consider creating small names
-(define generate-unique-name
-  (let ((id 0))
-    (lambda (type-string)
-      (set! id (+ 1 id))
-      (string-append type-string (number->string id)))))
-
 (define generate-input-field-name generate-unique-name)

 (define identity (lambda (a) a))