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)