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<%>)) (module-language<%>))
(define-signature drscheme:module-language^ extends drscheme:module-language-cm^ (define-signature drscheme:module-language^ extends drscheme:module-language-cm^
(add-module-language (add-module-language
module-language-name
module-language-put-file-mixin)) module-language-put-file-mixin))
(define-signature drscheme:module-language-tools-cm^ (define-signature drscheme:module-language-tools-cm^

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

@ -521,7 +521,7 @@
positions numbers)) positions numbers))
(when (null? (cdr positions)) (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 (error 'drscheme:language
"Only the module language may be at the top level. Other languages must have at least two levels"))) "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))]))))) (get/set-settings (send language default-settings))])))))
(cond (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*language language)
(set! module-language*get-language-details-panel get-language-details-panel) (set! module-language*get-language-details-panel get-language-details-panel)
(set! module-language*get/set-settings get/set-settings)] (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-full-trace? #t)
(define default-auto-text "#lang scheme\n") (define default-auto-text "#lang scheme\n")
(define module-language-name "Determine language from source")
;; module-mixin : (implements drscheme:language:language<%>) ;; module-mixin : (implements drscheme:language:language<%>)
;; -> (implements drscheme:language:language<%>) ;; -> (implements drscheme:language:language<%>)
(define (module-mixin %) (define (module-mixin %)
@ -352,7 +350,7 @@
(super-new (super-new
[module #f] [module #f]
[language-position (list module-language-name)] [language-position (list (string-constant module-language-name))]
[language-numbers (list -32768)]))) [language-numbers (list -32768)])))
;; can be called with #f to just kill the repl (in case we want to kill it ;; 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)] (let ([main-group (car lang)]
[second (and (pair? (cdr lang)) (cadr lang))] [second (and (pair? (cdr lang)) (cadr lang))]
[third (and (pair? (cdr lang)) (pair? (cddr lang)) (caddr 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)) (and (equal? main-group (string-constant legacy-languages))
(or (member second (or (member second
(list (string-constant r5rs-language-name) (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") (initial-language-category "Initial language")
(no-language-chosen "No language chosen") (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-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 (module-language-auto-text "Automatic #lang line") ;; shows up in the details section of the module language