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

macro-stepper: removed drscheme,etc dep on macro-debugger

Browse Source 
(changed capability to normal symbol constant)

svn: r17953
This commit is contained in:
Ryan Culpepper 2010-02-03 14:43:23 +00:00
parent c581b6b575
commit ffa97036a8
5 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drscheme/private/language-configuration.ss
View File

@ -6,7 +6,6 @@
scheme/string scheme/string
scheme/list scheme/list
"drsig.ss" "drsig.ss"
macro-debugger/capability
string-constants string-constants
mred mred
framework framework
@ -1338,7 +1337,7 @@
(super-new) (super-new)
(define/augment (capability-value key) (define/augment (capability-value key)
(cond (cond
[(eq? key macro-stepper-capability-key) #t] [(eq? key 'macro-stepper:enabled) #t]
[else (inner (drscheme:language:get-capability-default key) [else (inner (drscheme:language:get-capability-default key)
capability-value key)])))) capability-value key)]))))

3
collects/drscheme/private/module-language.ss
View File

@ -13,7 +13,6 @@
framework framework
string-constants string-constants
planet/config planet/config
macro-debugger/capability
"drsig.ss" "drsig.ss"
"rep.ss") "rep.ss")
@ -86,7 +85,7 @@
(cond (cond
[(eq? key 'drscheme:autocomplete-words) [(eq? key 'drscheme:autocomplete-words)
(drscheme:language-configuration:get-all-manual-keywords)] (drscheme:language-configuration:get-all-manual-keywords)]
[(eq? key macro-stepper-capability-key) #t] [(eq? key 'macro-stepper:enabled) #t]
[else (drscheme:language:get-capability-default key)])) [else (drscheme:language:get-capability-default key)]))
;; config-panel : as in super class ;; config-panel : as in super class

7
collects/macro-debugger/capability.ss
View File

@ -1,7 +0,0 @@
#lang scheme/base
(provide macro-stepper-capability-key)
(define macro-stepper-capability-key
(string->uninterned-symbol "Enable Macro Stepper"))

7
collects/macro-debugger/tool.ss
View File

@ -8,7 +8,6 @@
drscheme/tool drscheme/tool
mrlib/switchable-button mrlib/switchable-button
string-constants string-constants
"capability.ss"
"model/trace.ss" "model/trace.ss"
"model/deriv.ss" "model/deriv.ss"
"model/deriv-util.ss" "model/deriv-util.ss"
@ -17,6 +16,8 @@
"view/stepper.ss" "view/stepper.ss"
"view/prefs.ss") "view/prefs.ss")
;; Capability name: 'macro-stepper:enabled
(provide tool@) (provide tool@)
(define-local-member-name allow-macro-stepper?) (define-local-member-name allow-macro-stepper?)
@ -82,7 +83,7 @@
(define (phase1) (define (phase1)
(drscheme:language:register-capability (drscheme:language:register-capability
macro-stepper-capability-key 'macro-stepper:enabled
boolean? boolean?
#f)) #f))
(define (phase2) (void)) (define (phase2) (void))
@ -163,7 +164,7 @@
(let ([lang (let ([lang
(drscheme:language-configuration:language-settings-language (drscheme:language-configuration:language-settings-language
(send (get-definitions-text) get-next-settings))]) (send (get-definitions-text) get-next-settings))])
(send lang capability-value macro-stepper-capability-key))) (send lang capability-value 'macro-stepper:enabled)))
(define/private (enable/disable-stuff enable?) (define/private (enable/disable-stuff enable?)
(if enable? (if enable?

3
collects/swindle/tool.ss
View File

@ -9,7 +9,6 @@
mzlib/list mzlib/list
mred mred
net/sendurl net/sendurl
macro-debugger/capability
string-constants) string-constants)
(provide tool@) (provide tool@)
@ -37,7 +36,7 @@
(super-instantiate ())))) (super-instantiate ()))))
(define/augment (capability-value key) (define/augment (capability-value key)
(cond (cond
[(eq? key macro-stepper-capability-key) #t] [(eq? key 'macro-stepper:enabled) #t]
[else (inner (drscheme:language:get-capability-default key) [else (inner (drscheme:language:get-capability-default key)
capability-value key)])) capability-value key)]))
(define/override (use-namespace-require/copy?) #t) (define/override (use-namespace-require/copy?) #t)