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

use append-map

Browse Source 
svn: r10491
This commit is contained in:
Eli Barzilay 2008-06-28 17:08:53 +00:00
parent 4f10870042
commit b535037d2a
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -110,12 +110,9 @@
(current-command-line-arguments (module-language-settings-command-line-args settings)) (current-command-line-arguments (module-language-settings-command-line-args settings))
(let ([default (current-library-collection-paths)]) (let ([default (current-library-collection-paths)])
(current-library-collection-paths (current-library-collection-paths
(apply (append-map
append (λ (x) (if (symbol? x) default (list x)))
(map (λ (x) (if (symbol? x) (module-language-settings-collection-paths settings)))))))
default
(list x)))
(module-language-settings-collection-paths settings))))))))
(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))