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

svn: r11843

Browse Source
This commit is contained in:
Robby Findler 2008-09-23 13:56:47 +00:00
parent add3676853
commit cde0dc2566
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/setup/private/omitted-paths.ss
View File

@ -43,7 +43,7 @@
(if (eof-object? x) (if (eof-object? x)
(reverse r) (reverse r)
(let* ([x (and (list? x) (= 7 (length x)) (list-ref x 4))] (let* ([x (and (list? x) (= 7 (length x)) (list-ref x 4))]
[x (and (bytes? x) (bytes->path x))]) [x (and (bytes? x) (simplify-path (bytes->path x)))])
(loop (if x (cons x r) r))))))))))))) (loop (if x (cons x r) r)))))))))))))
;; if `x' has `y' as a prefix, return the tail, ;; if `x' has `y' as a prefix, return the tail,