From 0a510b7c76104776461e5070bb13b2b7fbb2972f Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Tue, 15 Jul 2003 14:39:55 +0000
Subject: [PATCH] Rename SELECT-MULTIPLE-TRANSFORMER to
 MULTIPLE-SELECT-TRANSFORMER to make things clearer.

---
 scheme/httpd/surflets/surflet-input-fields.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm
index f5e4f10..bb8173b 100644
--- a/scheme/httpd/surflets/surflet-input-fields.scm
+++ b/scheme/httpd/surflets/surflet-input-fields.scm
@@ -272,7 +272,7 @@
 ;; internal
 (define (make-multiple-select name select-options attributes)
   (make-multi-input-field name "mult-select"
-			  select-multiple-transformer
+			  multiple-select-transformer
 			  (make-field-attributes
 			   select-options 
 			   `((multiple) 
@@ -291,7 +291,7 @@
 		     (sxml-attribute-attributes attributes))
 		    make-select-html-tree))
 
-(define (select-multiple-transformer select bindings)
+(define (multiple-select-transformer select bindings)
   (let ((name (input-field-name select))
 	(select-options (field-attributes-default 
 			 (input-field-attributes select))))