fixed PR8384
svn: r4873
This commit is contained in:
parent
5cc1439c48
commit
e0be568040
|
@ -32,13 +32,15 @@
|
|||
|
||||
; load-developer-configuration : path -> configuration
|
||||
(define (load-developer-configuration table-file-name)
|
||||
(complete-developer-configuration (directory-part table-file-name)
|
||||
(get-configuration table-file-name)))
|
||||
(complete-developer-configuration
|
||||
(directory-part table-file-name)
|
||||
(get-configuration table-file-name)))
|
||||
|
||||
; build-developer-configuration : tst -> configuration-table
|
||||
(define (build-developer-configuration s-expr)
|
||||
(complete-developer-configuration (directory-part default-configuration-table-path)
|
||||
(parse-configuration-table s-expr)))
|
||||
(complete-configuration ; used to be: complete-developer-configuration
|
||||
(directory-part default-configuration-table-path)
|
||||
(parse-configuration-table s-expr)))
|
||||
|
||||
; : (listof (cons sym TST)) -> configuration
|
||||
; more here - this is ugly. It also does not catch "unbound identifiers" since I use symbols.
|
||||
|
@ -71,4 +73,4 @@
|
|||
[update-configuration (configuration? (listof (cons/c symbol? any/c)) . -> . configuration?)]
|
||||
[load-configuration-sexpr (list? . -> . configuration?)]
|
||||
[load-configuration (path-string? . -> . configuration?)]
|
||||
[load-developer-configuration (path-string? . -> . configuration?)]))
|
||||
[load-developer-configuration (path-string? . -> . configuration?)]))
|
||||
|
|
Loading…
Reference in New Issue
Block a user