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

reformat, use hash-ref!

Browse Source 
svn: r15044
This commit is contained in:
Eli Barzilay 2009-06-01 20:28:10 +00:00
parent bb823bbb3b
commit 438ad9865a
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,9 +42,10 @@
(let ([x (read)])
(if (eof-object? x)
(reverse r)
(let* ([x (and (list? x) (= 7 (length x)) (list-ref x 4))]
[x (and (bytes? x) (simplify-path (bytes->path x)))])
(loop (if x (cons x r) r)))))))))))))
(let ([x (and (list? x) (= 7 (length x)) (list-ref x 4))])
(loop (if (bytes? x)
(cons (simplify-path (bytes->path x)) r)
r)))))))))))))
;; if `x' has `y' as a prefix, return the tail,
;; eg (relative-from '(1 2 3 4) '(1 2)) => '(3 4)
@ -55,7 +56,7 @@
[else #f]))
(define-syntax-rule (with-memo t x expr)
(hash-ref t x (lambda () (let ([r expr]) (hash-set! t x r) r))))
(hash-ref! t x (lambda () expr)))
(define ((implicit-omit? omit-doc?) path)
(let ([str (path-element->string path)])
@ -109,7 +110,7 @@
[r (ormap (lambda (root+table)
(let ([r (relative-from dir* (car root+table))])
(and r (cons (reverse r) root+table))))
roots)]
roots)]
[r (and r (apply accumulate-omitted r))])
(unless r
(error 'omitted-paths