(module run mzscheme
  (require (lib "web-server.ss" "web-server")
           (lib "configuration.ss" "web-server")
           (lib "etc.ss"))
  
  ;; get-local-library-path: -> path
  ;; Adds the collects directory that's in the same directory that run.ss lives
  ;; in.
  (define (get-local-library-path)
    (path->complete-path
     (build-path (this-expression-source-directory) "collects")))
  
  (parameterize ([current-library-collection-paths
                  (cons (get-local-library-path)
                        (current-library-collection-paths))])
    (define server
      (serve (load-configuration (build-path 'same "configuration-table"))))
    
    ;; wait forever
    (semaphore-wait (make-semaphore))))