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

up

Browse Source 
svn: r4780
This commit is contained in:
Jay McCarthy 2006-11-05 04:16:44 +00:00
parent 18288da493
commit 9f2578e0f8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/web-server/configuration.ss
View File

@ -20,8 +20,8 @@
(define (load-configuration table-file-name) (define (load-configuration table-file-name)
(complete-configuration (directory-part table-file-name) (get-configuration table-file-name))) (complete-configuration (directory-part table-file-name) (get-configuration table-file-name)))
; load-configration-sexpr : sexp -> configuration ; load-configuration-sexpr : sexp -> configuration
(define (load-configration-sexpr sexpr) (define (load-configuration-sexpr sexpr)
(build-configuration (parse-configuration-table sexpr) empty)) (build-configuration (parse-configuration-table sexpr) empty))
; load-developer-configuration : path -> configuration ; load-developer-configuration : path -> configuration
@ -69,6 +69,6 @@
[build-developer-configuration/vhosts (list? . -> . configuration?)] [build-developer-configuration/vhosts (list? . -> . configuration?)]
[default-configuration-table-path path?] [default-configuration-table-path path?]
[update-configuration (configuration? (listof (cons/c symbol? any/c)) . -> . configuration?)] [update-configuration (configuration? (listof (cons/c symbol? any/c)) . -> . configuration?)]
[load-configration-sexpr (list? . -> . configuration?)] [load-configuration-sexpr (list? . -> . configuration?)]
[load-configuration (path-string? . -> . configuration?)] [load-configuration (path-string? . -> . configuration?)]
[load-developer-configuration (path-string? . -> . configuration?)])) [load-developer-configuration (path-string? . -> . configuration?)]))