warning when collection paths are empty
svn: r10712
This commit is contained in:
parent
23cf600c47
commit
b19301e100
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user