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

remove old commented code, minor tweak

Browse Source 
svn: r17480
This commit is contained in:
Eli Barzilay 2010-01-05 11:59:27 +00:00
parent acb214f2a2
commit 01858d2989
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/meta/tree/tree.ss
View File

@ -225,10 +225,6 @@
(unless (eq? r sub) (set! same? #f)) (unless (eq? r sub) (set! same? #f))
r)) r))
subs)]) subs)])
;; (when (null? new-subs)
;; (printf "dropping result after pred: ~s\n" (object-name pred)))
;; (and (pair? new-subs) ; drop empty directories
;; (if same? dir (make-dir (tree-name dir) new-subs)))
(cond [(and (null? new-subs) (not (negated? pred))) #f] (cond [(and (null? new-subs) (not (negated? pred))) #f]
[same? dir] [same? dir]
[else (make-dir (tree-name dir) new-subs)]))) [else (make-dir (tree-name dir) new-subs)])))
@ -262,5 +258,5 @@
bytes<? bytes<?
#:key car)))) #:key car))))
(define root (path->bytes (simplify-path dir))) (define root (path->bytes (simplify-path dir)))
(make-dir (if (regexp-match? #rx"/$" root) root (bytes-append root #"/")) (make-dir (if (regexp-match? #rx#"/$" root) root (bytes-append root #"/"))
(subs dir))) (subs dir)))