sunet/web-server/root/surflets/add-simple.scm

17 lines
398 B
Scheme
Raw Normal View History

2003-01-19 11:57:27 -05:00
(define-structure surflet surflet-interface
(open scheme-with-scsh
2003-01-19 11:57:27 -05:00
surflets
simple-surflet-api
)
(begin
(define (main req)
(let* ((number-1 (single-query (make-number "First number:")))
(number-2 (single-query (make-number "Second number:"))))
(inform (format #f "~a + ~a = ~a"
number-1
number-2
(+ number-1 number-2))))
(final-page "Session finished."))
))