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

fixed the macro stepper so that it shows up in the new module language

Browse Source 
svn: r17927
This commit is contained in:
Robby Findler 2010-02-01 17:09:22 +00:00
parent f4cd110b1a
commit 402886bc18
5 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/drscheme/private/drsig.ss
View File

@ -83,7 +83,6 @@
(module-language<%>))
(define-signature drscheme:module-language^ extends drscheme:module-language-cm^
(add-module-language
module-language-name
module-language-put-file-mixin))
(define-signature drscheme:module-language-tools-cm^

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

@ -521,7 +521,7 @@
positions numbers))
(when (null? (cdr positions))
(unless (equal? positions (list drscheme:module-language:module-language-name))
(unless (equal? positions (list (string-constant module-language-name)))
(error 'drscheme:language
"Only the module language may be at the top level. Other languages must have at least two levels")))
@ -592,7 +592,7 @@
(get/set-settings (send language default-settings))])))))
(cond
[(equal? positions (list drscheme:module-language:module-language-name))
[(equal? positions (list (string-constant module-language-name)))
(set! module-language*language language)
(set! module-language*get-language-details-panel get-language-details-panel)
(set! module-language*get/set-settings get/set-settings)]

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

@ -53,8 +53,6 @@
(define default-full-trace? #t)
(define default-auto-text "#lang scheme\n")
(define module-language-name "Determine language from source")
;; module-mixin : (implements drscheme:language:language<%>)
;; -> (implements drscheme:language:language<%>)
(define (module-mixin %)
@ -352,7 +350,7 @@
(super-new
[module #f]
[language-position (list module-language-name)]
[language-position (list (string-constant module-language-name))]
[language-numbers (list -32768)])))
;; can be called with #f to just kill the repl (in case we want to kill it

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

@ -310,7 +310,7 @@
(let ([main-group (car lang)]
[second (and (pair? (cdr lang)) (cadr lang))]
[third (and (pair? (cdr lang)) (pair? (cddr lang)) (caddr lang))])
(or (equal? main-group "Module")
(or (equal? main-group (string-constant module-language-name))
(and (equal? main-group (string-constant legacy-languages))
(or (member second
(list (string-constant r5rs-language-name)

1
collects/string-constants/english-string-constants.ss
View File

@ -1055,6 +1055,7 @@ please adhere to these guidelines:
(initial-language-category "Initial language")
(no-language-chosen "No language chosen")
(module-language-name "Determine language from source")
(module-language-one-line-summary "Reads the #lang line to specify the actual language")
(module-language-auto-text "Automatic #lang line") ;; shows up in the details section of the module language