From 3e9486573a12012eb85bb7b2d2c1cf24528356d7 Mon Sep 17 00:00:00 2001 From: interp Date: Mon, 30 Sep 2002 15:58:50 +0000 Subject: [PATCH] adapt to recent change in creating form input fields --- scheme/httpd/surflets/web-server/root/surflets/calculate.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm index e28c864..fd1dfe7 100644 --- a/scheme/httpd/surflets/web-server/root/surflets/calculate.scm +++ b/scheme/httpd/surflets/web-server/root/surflets/calculate.scm @@ -55,14 +55,14 @@ (td ,(operator-symbol operator-pair)) (td ,number-field2) (td " = ") - (td ,(make-submit-button '(value "calculate")))))) + (td ,(make-submit-button '(@ (value "calculate"))))))) (hr) (p "You may choose another operator:") (servlet-form ,change-operator-callback (table (tr (td ,operator-input-field) - (td ,(make-submit-button '(value "change operator")))))))))) + (td ,(make-submit-button '(@ (value "change operator"))))))))))) (define (change-operator to-operation) (show-page to-operation))