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

fixed PR9806 and PR9807

Browse Source 
svn: r11940
This commit is contained in:
Eli Barzilay 2008-10-05 04:42:48 +00:00
parent 9c92ce8cc9
commit 062152e711
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/path-dialog.ss
View File

@ -40,7 +40,8 @@
(apply simplify-path (regexp-replace* (apply simplify-path (regexp-replace*
#rx"/" (if (path? p) (path->string p) p) "\\\\") #rx"/" (if (path? p) (path->string p) p) "\\\\")
more)) more))
(compose simplify-path expand-path*))) (lambda (p . more)
(apply simplify-path (expand-path* p) more))))
(define directory-exists*? (compose directory-exists? expand-path*)) (define directory-exists*? (compose directory-exists? expand-path*))
(define file-exists*? (compose file-exists? expand-path*)) (define file-exists*? (compose file-exists? expand-path*))

8
collects/scheme/private/list.ss
View File

@ -247,13 +247,9 @@
(lambda args (f (apply g args)))) (lambda args (f (apply g args))))
(if (eqv? 1 (procedure-arity g)) ; optimize: single input (if (eqv? 1 (procedure-arity g)) ; optimize: single input
(lambda (a) (lambda (a)
(call-with-values (call-with-values (lambda () (g a)) f))
(lambda () (g a))
f))
(lambda args (lambda args
(call-with-values (call-with-values (lambda () (apply g args)) f)))))]
(lambda () (apply g args))
f)))))]
[(f . more) [(f . more)
(if (procedure? f) (if (procedure? f)
(let ([m (apply compose more)]) (let ([m (apply compose more)])