adapt to recent change in creating form input fields
This commit is contained in:
parent
516d8221d7
commit
3e9486573a
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue