19 lines
443 B
Scheme
19 lines
443 B
Scheme
(module temp (lib "lang.ss" "web-server")
|
|
(provide start)
|
|
|
|
(define msg (make-parameter "unknown"))
|
|
|
|
(define (gn should-be i)
|
|
(let/cc k
|
|
(printf "~S == ~S~n" should-be (msg))
|
|
i))
|
|
|
|
(define (start)
|
|
'(fun . #t)
|
|
(printf "12 + 1 = 13 = ~S~n"
|
|
(+
|
|
(parameterize ([msg "first"])
|
|
(gn "first" 12))
|
|
(parameterize ([msg "second"])
|
|
(gn "second" 1))))))
|