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"
super-result)))]
[(= 4 iteration-number)
#`(eval #,#`(#%app current-namespace
#`(#%app current-namespace
(#%app
module->namespace
'#,(get-full-module-name))))]
(#%datum . #,(get-full-module-name))))]
[else eof]))))
;; printer settings are just ignored here.

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

@ -17,6 +17,7 @@
(define tests
(list
(make-test ""
#f
(regexp "module-language: the definitions window must contain a module"))
@ -116,7 +117,12 @@
(syntax-rules ()
((app . x) '(app . 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
(call-with-output-file (build-path this-dir "module-lang-test-tmp.ss")
@ -137,6 +143,21 @@
port))
'truncate
'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 interactions-text (send drs get-interactions-text))