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

fixed PR 8828

Browse Source 
svn: r6970
This commit is contained in:
Robby Findler 2007-07-26 01:24:44 +00:00
parent 7eb84055f8
commit 0b61b9b313
2 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -158,10 +158,10 @@
"there can only be one expression in the definitions window" "there can only be one expression in the definitions window"
super-result)))] super-result)))]
[(= 4 iteration-number) [(= 4 iteration-number)
#`(eval #,#`(#%app current-namespace #`(#%app current-namespace
(#%app (#%app
module->namespace module->namespace
'#,(get-full-module-name))))] (#%datum . #,(get-full-module-name))))]
[else eof])))) [else eof]))))
;; printer settings are just ignored here. ;; printer settings are just ignored here.

23
collects/tests/drscheme/module-lang-test.ss
View File

@ -17,6 +17,7 @@
(define tests (define tests
(list (list
(make-test "" (make-test ""
#f #f
(regexp "module-language: the definitions window must contain a module")) (regexp "module-language: the definitions window must contain a module"))
@ -116,7 +117,12 @@
(syntax-rules () (syntax-rules ()
((app . x) '(app . x)))))) ((app . x) '(app . x))))))
"x" "x"
"2"))) "2")
(make-test
(format "~s" `(module m (file ,(path->string (build-path this-dir "module-lang-test-tmp.ss"))) 1 2 3))
"1" ;; just make sure no errors.
"1")))
;; set up for tests that need external files ;; set up for tests that need external files
(call-with-output-file (build-path this-dir "module-lang-test-tmp.ss") (call-with-output-file (build-path this-dir "module-lang-test-tmp.ss")
@ -138,6 +144,21 @@
'truncate 'truncate
'text) 'text)
(call-with-output-file (build-path this-dir "module-lang-test-tmp3.ss")
(lambda (port)
(write `(module module-lang-test-tmp3 mzscheme
(define-syntax (bug-datum stx)
(syntax-case stx ()
[(dat . thing)
(number? (syntax-e (syntax thing)))
(syntax/loc stx (#%datum . thing))]))
(provide #%module-begin [rename bug-datum #%datum]))
port))
'truncate
'text)
(define drs (wait-for-drscheme-frame)) (define drs (wait-for-drscheme-frame))
(define interactions-text (send drs get-interactions-text)) (define interactions-text (send drs get-interactions-text))