suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ensuring cache-entries work with servlet-env

Browse Source 
svn: r667
This commit is contained in:
Jay McCarthy 2005-08-25 01:28:25 +00:00
parent 904b3ce059
commit e92f86feef
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/servlet-env.ss
View File

@ -60,7 +60,7 @@
(build-path (directory-part default-configuration-table-path) (build-path (directory-part default-configuration-table-path)
"default-web-root" "." "default-web-root" "."
the-path) the-path)
the-servlet) (cons the-servlet (i:make-servlet-namespace)))
(unit/sig web-config^ (unit/sig web-config^
(import) (import)
(define port the-port) (define port the-port)
@ -72,4 +72,4 @@
(define instances i:instances) (define instances i:instances)
(define scripts (box the-scripts)) (define scripts (box the-scripts))
(define scripts-lock i:scripts-lock) (define scripts-lock i:scripts-lock)
(define make-servlet-namespace i:scripts-lock))))) (define make-servlet-namespace i:make-servlet-namespace)))))

4
collects/web-server/web-server-unit.ss
View File

@ -607,7 +607,9 @@
;; ************************************************************ ;; ************************************************************
;; ************************************************************ ;; ************************************************************
;; Paul's ugly loading code: ;; Paul's ugly loading code:
(define-struct cache-entry (servlet namespace)) (define make-cache-entry cons)
(define cache-entry-servlet car)
(define cache-entry-namespace cdr)
;; cached-load : str -> script, namespace ;; cached-load : str -> script, namespace
;; timestamps are no longer checked for performance. The cache must be explicitly ;; timestamps are no longer checked for performance. The cache must be explicitly