improve current-server-extras-path

server.rkt

@@ -1,6 +1,6 @@
 #lang web-server/base
 
-(require racket/list racket/contract
+(require racket/list
          web-server/servlet-env 
          web-server/dispatch)
 (require "server-routes.rkt" 
@@ -26,12 +26,8 @@
   (define server-name (format "http://localhost:~a" (world:current-server-port)))
   (message (format "Project server is ~a" server-name) "(Ctrl-C to exit)")
   (message (format "Project dashboard is ~a/~a" server-name world:default-pagetree))
-  
   (message "Ready to rock")
-  
-  (define module-root (apply build-path (drop-right (explode-path (current-contract-region)) 1)))
-  (world:current-server-extras-path (build-path module-root world:server-extras-dir))
-  
+    
   (parameterize ([error-print-width 1000]
                  [current-cache (make-cache)])
     (serve/servlet pollen-servlet

world.rkt

@@ -1,4 +1,5 @@
 #lang racket/base
+(require racket/runtime-path)
 
 (provide (prefix-out world: (all-defined-out)))
 
@@ -53,8 +54,8 @@
 
 (define dashboard-css "poldash.css")
 
-(define server-extras-dir "server-extras")
-(define current-server-extras-path (make-parameter #f))
+(define-runtime-path server-extras-dir "server-extras")
+(define current-server-extras-path (make-parameter server-extras-dir))
 
 (define check-directory-requires-in-render? (make-parameter #t))