diff --git a/collects/web-server/default-web-root/servlets/examples/count.ss b/collects/web-server/default-web-root/servlets/examples/count.ss index b7b00a73f6..d537235aa9 100644 --- a/collects/web-server/default-web-root/servlets/examples/count.ss +++ b/collects/web-server/default-web-root/servlets/examples/count.ss @@ -5,10 +5,13 @@ (let ([count 0] [date (date->string (seconds->date (current-seconds)) 'time-too)]) (unit/sig () (import servlet^) + (define other-count 0) - (set! count (add1 count)) + (set! other-count (add1 other-count)) + (set! count (add1 count)) - `(html (head (title "Counter")) - (body ([bgcolor "white"]) - (p "This servlet was called " ,(number->string count) - " times since loaded on " ,date "."))))) \ No newline at end of file + `(html (head (title "Counter")) + (body ([bgcolor "white"]) + (p "This servlet was called " ,(number->string count) + " times and " ,(number->string other-count) + " times since loaded on " ,date "."))))) \ No newline at end of file