From 2ff183fa28fd59be3939c711810b3c64d77386e9 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Mon, 14 Jul 2003 17:33:37 +0000
Subject: [PATCH] Move definition of deprecated MAKE-ANNOTATED-SELECT behind
 the definition of MAKE-SELECT.

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

diff --git a/scheme/httpd/surflets/surflet-input-fields.scm b/scheme/httpd/surflets/surflet-input-fields.scm
index 16a890f..e61c820 100644
--- a/scheme/httpd/surflets/surflet-input-fields.scm
+++ b/scheme/httpd/surflets/surflet-input-fields.scm
@@ -255,9 +255,6 @@
       select-options
       (map make-simple-select-option select-options)))
 
-;; deprecated: Does not introduce further functionality.
-(define make-annotated-select make-select)
-
 (define (make-select select-options maybe-further-attributes)
   (let ((real-select-options (simple-options select-options)))
     (let-optionals maybe-further-attributes
@@ -269,6 +266,9 @@
 	    (make-single-select name select-options 
 				attributes))))))
 
+;; deprecated: Does not introduce further functionality.
+(define make-annotated-select make-select)
+
 ;; internal
 (define (make-multiple-select name select-options attributes)
   (make-multi-input-field name "mult-select"