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

PR 9696

Browse Source 
svn: r11381
This commit is contained in:
Robby Findler 2008-08-22 12:52:01 +00:00
parent bd12705f83
commit 7f31137562
2 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/rep.ss
View File

@ -665,7 +665,7 @@ TODO
(srcloc-position srcloc)
(srcloc-span srcloc))]
[(port-name-matches? (srcloc-source srcloc))
(hash-set! ht (srcloc-source srcloc) definitions-text)
(hash-set! ht (srcloc-source srcloc) this)
(make-srcloc this
(srcloc-line srcloc)
(srcloc-column srcloc)

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

@ -23,25 +23,6 @@
(/ 888 2)
(provide (except-out (all-from-out scheme/base) #%top-interaction))))
;; this test doesn't pass yet, but the test isn't testing the right thing yet either.
(test @t{#lang scheme
(define-syntax (f stx)
(syntax-case stx ()
[(f)
(raise (make-exn:fail:syntax "both" (current-continuation-marks) (list #'f stx)))]))}
@t{(f)}
#<<--
> (f)
. . both in:
f
(f)
--
#t
#:error-ranges
(λ (defs ints)
(list (make-srcloc defs 3 3 107 1)
(make-srcloc defs 3 2 106 3))))
(test @t{}
#f
@rx{Module Language: There must be a valid module
@ -256,6 +237,24 @@
#f
"4")
(test @t{#lang scheme
(define-syntax (f stx)
(syntax-case stx ()
[(f)
(raise (make-exn:fail:syntax "both" (current-continuation-marks) (list #'f stx)))]))}
@t{(f)}
#<<--
> (f)
. . both in:
f
(f)
--
#t
#:error-ranges
(λ (defs ints)
(list (make-srcloc ints 3 3 107 1)
(make-srcloc ints 3 2 106 3))))
;; test protection against user-code changing the namespace
(test @t{#lang scheme/base
(current-namespace (make-base-namespace))}