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

correctly apply map to its argument due to an early ). Fixes PR 13047

Browse Source
This commit is contained in:
Jon Rafkind 2012-08-21 16:22:37 -06:00
parent e705d4d450
commit 6dae03f283
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/racket/src/startup.inc
View File

@ -499,8 +499,8 @@
"(apply" "(apply"
" string-append" " string-append"
"(map(lambda(p)" "(map(lambda(p)"
" (format \"\\n ~a\" (unbox p))))" " (format \"\\n ~a\" (unbox p)))"
"(filter box? all-paths)))" "(filter box? all-paths))))"
" \"\")))))" " \"\")))))"
"(let((dir(*build-path-rep(car paths) collection)))" "(let((dir(*build-path-rep(car paths) collection)))"
"(if(*directory-exists?(car paths) dir)" "(if(*directory-exists?(car paths) dir)"

4
src/racket/src/startup.rktl
View File

@ -582,8 +582,8 @@
(apply (apply
string-append string-append
(map (lambda (p) (map (lambda (p)
(format "\n ~a" (unbox p)))) (format "\n ~a" (unbox p)))
(filter box? all-paths))) (filter box? all-paths))))
""))))) "")))))
(let ([dir (*build-path-rep (car paths) collection)]) (let ([dir (*build-path-rep (car paths) collection)])
(if (*directory-exists? (car paths) dir) (if (*directory-exists? (car paths) dir)