www

commit 78026f645672d48f5baa9b46be9e32b42213ae33
parent 8bd0dd447458a0ed308bb11be71004c46f4fb1bd
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Wed, 11 May 2011 02:13:00 -0600

fix warnings

original commit: 761a4025ca88cea7166fe25edb9fec8507b4e8c1

Diffstat:
M
collects/macro-debugger/model/hiding-policies.rkt
 | 
17
+++++++----------

1 file changed, 7 insertions(+), 10 deletions(-)
diff --git a/collects/macro-debugger/model/hiding-policies.rkt b/collects/macro-debugger/model/hiding-policies.rkt
@@ -64,7 +64,7 @@
                                     (from-collection ("racket"))))
                           (and hide-libs?
                                '(or (from-collection ())
-                                    #;(from-planet-collection #f #f ())))
+                                    #|(from-planet-collection #f #f ())|#))
                           (and hide-contracts?
                                '(symbol-like #rx"^provide/contract-id-"))
                           (and hide-phase1?
@@ -74,26 +74,23 @@
 ;; entries->function : (listof Entry) (id -> choice) -> (id -> choice)
 (define (entries->function entries base-fun)
   (if (pair? entries)
-      (let ([first-fun (entry->function (car entries))]
-            [rest-fun (entries->function (cdr entries) base-fun)])
-        (lambda (id)
-          (or (first-fun id)
-              (rest-fun id))))
+      (entry->function (car entries)
+                       (entries->function (cdr entries) base-fun))
       base-fun))
 
 ;; entry->function : Entry -> (id -> choice)
-(define (entry->function entry)
+(define (entry->function entry base-fun)
   (match entry
     [(list 'show-if condition)
      (let ([pred (condition->predicate condition)])
        (lambda (id)
-         (if (pred id) 'show #f)))]
+         (if (pred id) 'show (base-fun id))))]
     [(list 'hide-if condition)
      (let ([pred (condition->predicate condition)])
        (lambda (id)
-         (if (pred id) 'hide #f)))]
+         (if (pred id) 'hide (base-fun id))))]
     [(list 'splice entries)
-     (entries->function entries)]))
+     (entries->function entries base-fun)]))
 
 ;; condition->predicate : condition -> (id -> boolean)
 (define (condition->predicate condition)