From b535037d2a54d439467c8db7f9c2172593b068eb Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 28 Jun 2008 17:08:53 +0000 Subject: [PATCH] use append-map svn: r10491 --- collects/drscheme/private/module-language.ss | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index 8cefbc97f4..67e9adcfdc 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -110,12 +110,9 @@ (current-command-line-arguments (module-language-settings-command-line-args settings)) (let ([default (current-library-collection-paths)]) (current-library-collection-paths - (apply - append - (map (λ (x) (if (symbol? x) - default - (list x))) - (module-language-settings-collection-paths settings)))))))) + (append-map + (λ (x) (if (symbol? x) default (list x))) + (module-language-settings-collection-paths settings))))))) (define/override (get-one-line-summary) (string-constant module-language-one-line-summary))