15 lines
420 B
Scheme
15 lines
420 B
Scheme
#lang web-server/insta
|
|
|
|
(define (start request)
|
|
(show-counter 0))
|
|
|
|
;; show-counter: number -> html-response
|
|
(define (show-counter n)
|
|
(send/suspend/dispatch
|
|
(lambda (make-url)
|
|
`(html (head (title "Counting example"))
|
|
(body
|
|
(a ((href ,(make-url
|
|
(lambda (request)
|
|
(show-counter (+ n 1))))))
|
|
,(number->string n))))))) |