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

text is given.
2002-10-05 11:58:52 +00:00 · 2002-10-05 11:58:52 +00:00 · 9e5d62aa77
parent 12b2b96582
commit 9e5d62aa77
1 changed files with 2 additions and 2 deletions
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@ -374,7 +374,7 @@
 	   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)