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

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

@ -13,7 +13,6 @@
framework
string-constants
planet/config
macro-debugger/capability
"drsig.ss"
"rep.ss")
@ -86,7 +85,7 @@
(cond
[(eq? key 'drscheme:autocomplete-words)
(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)]))
;; 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
mrlib/switchable-button
string-constants
"capability.ss"
"model/trace.ss"
"model/deriv.ss"
"model/deriv-util.ss"
@ -17,6 +16,8 @@
"view/stepper.ss"
"view/prefs.ss")
;; Capability name: 'macro-stepper:enabled
(provide tool@)
(define-local-member-name allow-macro-stepper?)
@ -82,7 +83,7 @@
(define (phase1)
(drscheme:language:register-capability
macro-stepper-capability-key
'macro-stepper:enabled
boolean?
#f))
(define (phase2) (void))
@ -163,7 +164,7 @@
(let ([lang
(drscheme:language-configuration:language-settings-language
(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?)
(if enable?

3
collects/swindle/tool.ss
View File

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