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

Move definition of deprecated MAKE-ANNOTATED-SELECT behind the definition of MAKE-SELECT.

This commit is contained in:
interp 2003-07-14 17:33:37 +00:00
parent b532f8a991
commit 2ff183fa28
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/surflets/surflet-input-fields.scm
View File

@ -255,9 +255,6 @@
select-options select-options
(map make-simple-select-option 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) (define (make-select select-options maybe-further-attributes)
(let ((real-select-options (simple-options select-options))) (let ((real-select-options (simple-options select-options)))
(let-optionals maybe-further-attributes (let-optionals maybe-further-attributes
@ -269,6 +266,9 @@
(make-single-select name select-options (make-single-select name select-options
attributes)))))) attributes))))))
;; deprecated: Does not introduce further functionality.
(define make-annotated-select make-select)
;; internal ;; internal
(define (make-multiple-select name select-options attributes) (define (make-multiple-select name select-options attributes)
(make-multi-input-field name "mult-select" (make-multi-input-field name "mult-select"