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

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

Browse Source 
instead of ignoring ~ files everywhere
This commit is contained in:
Robby Findler 2014-09-05 08:28:18 -05:00
parent f4d66ad4d1
commit bc83e9b778
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/drracket-pkgs/drracket/drracket/private/find-completions.rkt
View File

@ -24,7 +24,9 @@
(define (ignore? x) (define (ignore? x)
(or (member x '("compiled")) (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]) (define (find-completions str the-current-directory #:alternate-racket [alternate-racket #f])
(cond (cond