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

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

Browse Source 
original commit: 9b03e384098a2d21c84f0a230c586cfa624920dd
This commit is contained in:
Ryan Culpepper 2010-07-12 13:09:02 -06:00
parent 05391541ad
commit feeb478dde
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/macro-debugger/model/hiding-policies.rkt
View File

@ -48,21 +48,21 @@
(lambda (id) 'show)] (lambda (id) 'show)]
['standard ['standard
(policy->function '(custom #t #t #t #t ()))] (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 (entries->function entries
(policy-base->function hide-scheme? (policy-base->function hide-racket?
hide-libs? hide-libs?
hide-contracts? hide-contracts?
hide-phase1?))])) hide-phase1?))]))
;; policy-base->function : boolean boolean boolean boolean -> (id -> choice) ;; 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 (entries->function
`[(hide-if `[(hide-if
(or ,@(filter values (or ,@(filter values
(list (and hide-scheme? (list (and hide-racket?
'(or (from-kernel-module) '(or (from-kernel-module)
(from-collection ("scheme")))) (from-collection ("racket"))))
(and hide-libs? (and hide-libs?
'(or (from-collection ()) '(or (from-collection ())
#;(from-planet-collection #f #f ()))) #;(from-planet-collection #f #f ())))

8
collects/macro-debugger/view/hiding-panel.rkt
View File

@ -37,13 +37,13 @@ TODO
[(equal? mode mode:custom) (get-custom-policy)]))) [(equal? mode mode:custom) (get-custom-policy)])))
(define/private (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-libs? (send box:hide-libs get-value)]
[hide-contracts? (send box:hide-contracts get-value)] [hide-contracts? (send box:hide-contracts get-value)]
[hide-transformers? (send box:hide-phase1 get-value)] [hide-transformers? (send box:hide-phase1 get-value)]
[specialized-policies (get-specialized-policies)]) [specialized-policies (get-specialized-policies)])
(policy->predicate (policy->predicate
`(custom ,hide-mzscheme? `(custom ,hide-racket?
,hide-libs? ,hide-libs?
,hide-contracts? ,hide-contracts?
,hide-transformers? ,hide-transformers?
@ -129,9 +129,9 @@ TODO
(value #t) (value #t)
(callback (lambda (c e) (update-visibility))))) (callback (lambda (c e) (update-visibility)))))
(define box:hide-mzscheme (define box:hide-racket
(new check-box% (new check-box%
(label "Hide mzscheme syntax") (label "Hide racket syntax")
(parent left-pane) (parent left-pane)
(value #t) (value #t)
(callback (lambda (c e) (refresh))))) (callback (lambda (c e) (refresh)))))