MAKE-UPPER-INPUT-FIELD --> MAKE-HIGHER-INPUT-FIELD
This commit is contained in:
parent
e29d3d750a
commit
fa61699155
|
@ -148,7 +148,7 @@
|
|||
|
||||
generate-input-field-name
|
||||
make-input-field
|
||||
make-upper-input-field
|
||||
make-higher-input-field
|
||||
make-text-input-field
|
||||
make-hidden-input-field
|
||||
make-password-input-field
|
||||
|
|
|
@ -269,7 +269,7 @@
|
|||
(define (make-input-field name transformer HTML-tree)
|
||||
(list 'input-field (real-make-input-field name transformer HTML-tree #f)))
|
||||
|
||||
(define (make-upper-input-field transformer HTML-tree)
|
||||
(define (make-higher-input-field transformer HTML-tree)
|
||||
(list 'input-field (real-make-input-field #f transformer HTML-tree #t)))
|
||||
|
||||
;; PRED-LIST contains list of predicates that recognizes optional
|
||||
|
@ -444,7 +444,7 @@
|
|||
#\newline
|
||||
,SXML-options)))
|
||||
(if multiple?
|
||||
(make-upper-input-field (make-multiple-transformer name) SXML)
|
||||
(make-higher-input-field (make-multiple-transformer name) SXML)
|
||||
(make-input-field name identity SXML)))))))
|
||||
|
||||
;; returns a *list* of radio buttons
|
||||
|
|
|
@ -20,7 +20,7 @@
|
|||
(make-checkbox-input-field (number->string order))
|
||||
(loop (+ 1 count)
|
||||
(* 2 order))))))))
|
||||
(make-upper-input-field
|
||||
(make-higher-input-field
|
||||
(lambda (bindings)
|
||||
(let loop ((sum 0)
|
||||
(checkboxes checkboxes))
|
||||
|
|
Loading…
Reference in New Issue