From d1c7b4e9d35f1e8eba68b6f3d712551904f7ebf8 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 10 Mar 2003 17:11:41 +0000 Subject: [PATCH] remove forgotten generate-unique-name --- scheme/httpd/surflets/input-fields.scm | 7 ------- 1 file changed, 7 deletions(-) diff --git a/scheme/httpd/surflets/input-fields.scm b/scheme/httpd/surflets/input-fields.scm index 3010f53..5278f82 100644 --- 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))