From bc83e9b778369eebd148bb6b7f1e3a6f48a57e6c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 5 Sep 2014 08:28:18 -0500 Subject: [PATCH] Open Require Path: ignore .bak files under windows, but ~ files elsewhere instead of ignoring ~ files everywhere --- .../drracket/drracket/private/find-completions.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt index 6f9e642cdd..fed6ac7d96 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt @@ -24,7 +24,9 @@ (define (ignore? x) (or (member x '("compiled")) - (regexp-match #rx"~$" x))) + (if (equal? (system-type) 'windows) + (regexp-match #rx"[.]bak$" x) + (regexp-match #rx"~$" x)))) (define (find-completions str the-current-directory #:alternate-racket [alternate-racket #f]) (cond