warning when collection paths are empty

svn: r10712
This commit is contained in:
Eli Barzilay 2008-07-10 20:28:18 +00:00
parent 23cf600c47
commit b19301e100

View File

@ -120,12 +120,16 @@
(super on-execute settings run-in-user-thread) (super on-execute settings run-in-user-thread)
(run-in-user-thread (run-in-user-thread
(λ () (λ ()
(current-command-line-arguments (module-language-settings-command-line-args settings)) (current-command-line-arguments
(let ([default (current-library-collection-paths)]) (module-language-settings-command-line-args settings))
(current-library-collection-paths (let* ([default (current-library-collection-paths)]
(append-map [cpaths (append-map (λ (x) (if (symbol? x) default (list x)))
(λ (x) (if (symbol? x) default (list x))) (module-language-settings-collection-paths
(module-language-settings-collection-paths settings))))))) settings))])
(when (null? cpaths)
(fprintf (current-error-port)
"Warning: your collection paths are empty!\n"))
(current-library-collection-paths cpaths)))))
(define/override (get-one-line-summary) (define/override (get-one-line-summary)
(string-constant module-language-one-line-summary)) (string-constant module-language-one-line-summary))