From 9e5d62aa77684ce8e14f2908038c4ce4255bcd39 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sat, 5 Oct 2002 11:58:52 +0000
Subject: [PATCH] In MAKE-NUMBER-INPUT-FIELD set default value field only if
 default text is given.

---
 scheme/httpd/surflets/surflets.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm
index cbedbfe..89a6540 100644
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@@ -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)