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

some improvements to the repl in the module language when there is no module there

Browse Source 
svn: r10261
This commit is contained in:
Robby Findler 2008-06-14 02:58:30 +00:00
parent 1d34ff568a
commit c4ac2429bb
2 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drscheme/private/debug.ss
View File

@ -387,7 +387,6 @@ profile todo:
(write-special snp (current-error-port))) (write-special snp (current-error-port)))
(display msg (current-error-port))))]) (display msg (current-error-port))))])
(send error-text-style-delta set-delta-foreground (make-object color% 200 0 0)) (send error-text-style-delta set-delta-foreground (make-object color% 200 0 0))
(send-out " in:" void)
(let ([show-one (let ([show-one
(λ (expr) (λ (expr)
(display " " (current-error-port)) (display " " (current-error-port))
@ -400,8 +399,11 @@ profile todo:
[exprs (exn:fail:syntax-exprs exn)]) [exprs (exn:fail:syntax-exprs exn)])
(cond (cond
[(null? exprs) (void)] [(null? exprs) (void)]
[(null? (cdr exprs)) (show-one (car exprs))] [(null? (cdr exprs))
(send-out " in:" void)
(show-one (car exprs))]
[else [else
(send-out " in:" void)
(for-each (λ (expr) (for-each (λ (expr)
(display "\n " (current-error-port)) (display "\n " (current-error-port))
(show-one expr)) (show-one expr))

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

@ -120,6 +120,21 @@
(string-constant module-language-one-line-summary)) (string-constant module-language-one-line-summary))
(inherit get-reader) (inherit get-reader)
(define/override (front-end/interaction port settings)
(if (null? (namespace-mapped-symbols))
(begin
(display
(string-append
"There are no bindings for use in the REPL.\n"
"Consider starting your program with:\n"
"\n"
" #lang scheme\n"
"\n"
"and clicking ‘Run’ again.\n")
(current-error-port))
(λ x eof))
(super front-end/interaction port settings)))
(define/override (front-end/complete-program port settings) (define/override (front-end/complete-program port settings)
(let* ([super-thunk (λ () ((get-reader) (object-name port) port))] (let* ([super-thunk (λ () ((get-reader) (object-name port) port))]
[path (get-filename port)] [path (get-filename port)]
@ -144,7 +159,7 @@
(let ([super-result (super-thunk)]) (let ([super-result (super-thunk)])
(if (eof-object? super-result) (if (eof-object? super-result)
(raise-syntax-error (raise-syntax-error
'module-language 'Module\ language
"the definitions window must contain a module") "the definitions window must contain a module")
(let-values ([(name new-module) (let-values ([(name new-module)
(transform-module path super-result)]) (transform-module path super-result)])