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

warning when collection paths are empty

Browse Source 
svn: r10712
This commit is contained in:
Eli Barzilay 2008-07-10 20:28:18 +00:00
parent 23cf600c47
commit b19301e100
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/drscheme/private/module-language.ss
View File

@ -120,12 +120,16 @@
(super on-execute settings run-in-user-thread)
(run-in-user-thread
(λ ()
(current-command-line-arguments (module-language-settings-command-line-args settings))
(let ([default (current-library-collection-paths)])
(current-library-collection-paths
(append-map
(λ (x) (if (symbol? x) default (list x)))
(module-language-settings-collection-paths settings)))))))
(current-command-line-arguments
(module-language-settings-command-line-args settings))
(let* ([default (current-library-collection-paths)]
[cpaths (append-map (λ (x) (if (symbol? x) default (list x)))
(module-language-settings-collection-paths
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)
(string-constant module-language-one-line-summary))