Open Require Path: ignore .bak files under windows, but ~ files elsewhere

instead of ignoring ~ files everywhere
2014-09-05 08:28:18 -05:00 · 2014-09-05 08:28:18 -05:00 · bc83e9b778
commit bc83e9b778
parent f4d66ad4d1
1 changed files with 3 additions and 1 deletions
--- 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