From 6dae03f2833d293734dc456c8f6b32f280684a48 Mon Sep 17 00:00:00 2001 From: Jon Rafkind Date: Tue, 21 Aug 2012 16:22:37 -0600 Subject: [PATCH] correctly apply map to its argument due to an early ). Fixes PR 13047 --- src/racket/src/startup.inc | 4 ++-- src/racket/src/startup.rktl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/racket/src/startup.inc b/src/racket/src/startup.inc index 184265dd8e..e325d6dca7 100644 --- a/src/racket/src/startup.inc +++ b/src/racket/src/startup.inc @@ -499,8 +499,8 @@ "(apply" " string-append" "(map(lambda(p)" -" (format \"\\n ~a\" (unbox p))))" -"(filter box? all-paths)))" +" (format \"\\n ~a\" (unbox p)))" +"(filter box? all-paths))))" " \"\")))))" "(let((dir(*build-path-rep(car paths) collection)))" "(if(*directory-exists?(car paths) dir)" diff --git a/src/racket/src/startup.rktl b/src/racket/src/startup.rktl index 411fd6855b..c9905b74b5 100644 --- a/src/racket/src/startup.rktl +++ b/src/racket/src/startup.rktl @@ -582,8 +582,8 @@ (apply string-append (map (lambda (p) - (format "\n ~a" (unbox p)))) - (filter box? all-paths))) + (format "\n ~a" (unbox p))) + (filter box? all-paths)))) ""))))) (let ([dir (*build-path-rep (car paths) collection)]) (if (*directory-exists? (car paths) dir)