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

Finding uninitiazed vars

Browse Source
This commit is contained in:
Jay McCarthy 2016-04-11 09:58:40 -04:00
parent 8a024e26e1
commit 594b1b25dc
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/config.rkt
View File

@ -14,6 +14,8 @@
(define-runtime-path here ".") (define-runtime-path here ".")
(define (config-path str) (define (config-path str)
(unless (path-string? str)
(error 'config-path "Not given path string: ~e" str))
(define p (if (relative-path? str) (define p (if (relative-path? str)
(build-path here str) (build-path here str)
str)) str))

5
src/static.rkt
View File

@ -49,7 +49,8 @@
(and p (config-path p)))) (and p (config-path p))))
(define pkg-index-generated-directory (define pkg-index-generated-directory
(config-path (@ (config) pkg-index-generated-directory))) (config-path (or (@ (config) pkg-index-generated-directory)
(error 'pkg-index-generated-directory "Not specified"))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Static rendering daemon -- Interface ;; Static rendering daemon -- Interface
@ -260,4 +261,4 @@
(define (extra-files-paths) (define (extra-files-paths)
(list static-generated-directory (list static-generated-directory
(config-path "../static") (config-path "../static")
(config-path pkg-index-generated-directory))) pkg-index-generated-directory))