From 516d8221d7ef49ff8a8c2831888d0925c6219092 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 30 Sep 2002 15:25:59 +0000 Subject: [PATCH] adapt to recent change in creating form input fields --- scheme/httpd/surflets/web-server/root/surflets/add2.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/add2.scm b/scheme/httpd/surflets/web-server/root/surflets/add2.scm index f04a5c0..f732ebd 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/add2.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/add2.scm @@ -6,7 +6,7 @@ scheme) (begin - (define number-input-field (make-number-input-field '(maxlength 10))) + (define number-input-field (make-number-input-field '(@ (maxlength 10)))) (define (get-number input-text . maybe-title) (let* ((title (if (pair? maybe-title) (car maybe-title) #f))