www

commit feeb478dde3c920267d75b097336c2abb71a7cb3
parent 05391541ad756a744340f7cdfe2ccae4df2277bc
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Mon, 12 Jul 2010 13:09:02 -0600

macro-stepper: switched to racket in hiding policy, labels

original commit: 9b03e384098a2d21c84f0a230c586cfa624920dd

Diffstat:
M
collects/macro-debugger/model/hiding-policies.rkt
 | 
10
+++++-----
M
collects/macro-debugger/view/hiding-panel.rkt
 | 
8
++++----

2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/collects/macro-debugger/model/hiding-policies.rkt b/collects/macro-debugger/model/hiding-policies.rkt
@@ -48,21 +48,21 @@
      (lambda (id) 'show)]
     ['standard
      (policy->function '(custom #t #t #t #t ()))]
-    [(list 'custom hide-scheme? hide-libs? hide-contracts? hide-phase1? entries)
+    [(list 'custom hide-racket? hide-libs? hide-contracts? hide-phase1? entries)
      (entries->function entries
-                        (policy-base->function hide-scheme?
+                        (policy-base->function hide-racket?
                                                hide-libs?
                                                hide-contracts?
                                                hide-phase1?))]))
 
 ;; policy-base->function : boolean boolean boolean boolean -> (id -> choice)
-(define (policy-base->function hide-scheme? hide-libs? hide-contracts? hide-phase1?)
+(define (policy-base->function hide-racket? hide-libs? hide-contracts? hide-phase1?)
   (entries->function
    `[(hide-if
       (or ,@(filter values
-                    (list (and hide-scheme?
+                    (list (and hide-racket?
                                '(or (from-kernel-module)
-                                    (from-collection ("scheme"))))
+                                    (from-collection ("racket"))))
                           (and hide-libs?
                                '(or (from-collection ())
                                     #;(from-planet-collection #f #f ())))
diff --git a/collects/macro-debugger/view/hiding-panel.rkt b/collects/macro-debugger/view/hiding-panel.rkt
@@ -37,13 +37,13 @@ TODO
               [(equal? mode mode:custom) (get-custom-policy)])))
 
     (define/private (get-custom-policy)
-      (let ([hide-mzscheme? (send box:hide-mzscheme get-value)]
+      (let ([hide-racket? (send box:hide-racket get-value)]
             [hide-libs? (send box:hide-libs get-value)]
             [hide-contracts? (send box:hide-contracts get-value)]
             [hide-transformers? (send box:hide-phase1 get-value)]
             [specialized-policies (get-specialized-policies)])
         (policy->predicate
-         `(custom ,hide-mzscheme?
+         `(custom ,hide-racket?
                   ,hide-libs?
                   ,hide-contracts?
                   ,hide-transformers?
@@ -129,9 +129,9 @@ TODO
            (value #t)
            (callback (lambda (c e) (update-visibility)))))
 
-    (define box:hide-mzscheme
+    (define box:hide-racket
       (new check-box%
-           (label "Hide mzscheme syntax")
+           (label "Hide racket syntax")
            (parent left-pane)
            (value #t)
            (callback (lambda (c e) (refresh)))))