1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(use spiffy awful)
(tcp-buffer-size 2048)
(enable-sxml #t)
(define (hello-world)
(define-page (main-page-path)
(lambda ()
(with-request-variables (foo)
(conc foo " Hello, world! Goodbye Dolly")))))
(define (start-server #!key (portnum 8080))
(handle-exceptions
exn
(begin
(print-error-message exn)
(if (< portnum 9000)
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(use spiffy awful)
(tcp-buffer-size 2048)
(enable-sxml #t)
(define (hello-world)
(define-page (main-page-path)
(lambda ()
(with-request-variables (foo)
foo))))
(define (start-server #!key (portnum 8080))
(handle-exceptions
exn
(begin
(print-error-message exn)
(if (< portnum 9000)
|