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

Exclude directories when testing TR's optimizer.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-08-26 17:38:57 -04:00
parent 63530ed74d
commit eadc2a7e4c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/tests/typed-scheme/optimizer/run.rkt
View File

@ -26,6 +26,7 @@
(define (test gen) (define (test gen)
(let-values (((base name _) (split-path gen))) (let-values (((base name _) (split-path gen)))
(or (regexp-match ".*~" name) ; we ignore backup files (or (regexp-match ".*~" name) ; we ignore backup files
(directory-exists? gen) ; and directories
;; machine optimized and hand optimized versions must expand to the ;; machine optimized and hand optimized versions must expand to the
;; same code ;; same code
(and (or (equal? (parameterize ([current-load-relative-directory (and (or (equal? (parameterize ([current-load-relative-directory