racket/collects/web-server/default-web-root/htdocs/lang-servlets/mm00.ss
2008-02-24 21:27:36 +00:00

17 lines
342 B
Scheme

#lang web-server
(provide start)
(define (gn which)
(cadr
(send/suspend
(lambda (k)
(let ([ignore (printf "Please send the ~a number.~n" which)])
k)))))
(define (start initial)
(let ([ans (+ (gn "first")
(gn "second")
(gn "third"))])
(printf "The answer is: ~s~n" ans)
ans))