From 8adec09b9f8849ac49d516f8bcaab7ae4648de22 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 5 Oct 2008 04:42:48 +0000 Subject: [PATCH] fixed PR9806 and PR9807 svn: r11940 original commit: 062152e71123d468e3e99f5f6eb082a28e7fbaee --- collects/mred/private/path-dialog.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss index 336c201c..464eedc8 100644 --- a/collects/mred/private/path-dialog.ss +++ b/collects/mred/private/path-dialog.ss @@ -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*))