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

fixed PR9806 and PR9807

Browse Source 
svn: r11940

original commit: 062152e71123d468e3e99f5f6eb082a28e7fbaee
This commit is contained in:
Eli Barzilay 2008-10-05 04:42:48 +00:00
parent 836bc99535
commit 8adec09b9f
1 changed files with 2 additions and 1 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*
#rx"/" (if (path? p) (path->string p) p) "\\\\")
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 file-exists*? (compose file-exists? expand-path*))