[plt-scheme] Re: Shared resources for servlets

On Sep  9, David Van Horn wrote:
> ;; a.ss
> (module a mzscheme
>   (printf "side-effect of A\n"))
> 
> ;; b.ss
> (module b mzscheme
>   (require "a.ss")
>   (provide interface-version timeout start)
>   (define interface-version 'v1)
>   (define timeout +inf.0)
> 
>   ; start : request -> response
>   (define (start initial-request)
>     `(html (body (p "loaded")))))
> 
> ;; c.ss -- same as b
> 
> This prints two "side-effect of A"s.

What's wrong with

  (module a mzscheme
    (define (init) ...)
    ...other-stuff...)

?

-- 
          ((lambda (x) (x x)) (lambda (x) (x x)))          Eli Barzilay:
                  http://www.barzilay.org/                 Maze is Life!