In MAKE-NUMBER-INPUT-FIELD set default value field only if default

text is given.
This commit is contained in:
interp 2002-10-05 11:58:52 +00:00
parent 12b2b96582
commit 9e5d62aa77
1 changed files with 2 additions and 2 deletions

View File

@ -369,12 +369,12 @@
((default (lambda (a) (or (number? a)
(string-or-symbol? a))))
(attributes XML-attribute?))
(make-input-field
(make-input-field
name
number-input-field-transformer
`(input (@ (type "text")
(name ,name)
(value ,default)
,(and default `(value ,default))
,(and attributes (cdr attributes))))))))))
(define (make-password-input-field . maybe-further-attributes)