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

Change `bad module name' error message to use "syntax" instead of

Browse Source 
"object", and make it use the syntax object so the error points at the
right place in the definitions window.

svn: r10287
This commit is contained in:
Eli Barzilay 2008-06-16 15:02:07 +00:00
parent 495588eabf
commit 922842d9d8
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -438,10 +438,7 @@
(syntax-case stx ()
[(form name . _)
(let ([v-name (syntax name)])
(when filename
(check-filename-matches filename
(syntax->datum (syntax name))
stx))
(when filename (check-filename-matches filename #'name stx))
(thread-cell-set! hopeless-repl #f)
(values v-name
;; rewrite the module to use the scheme/base version of `module'
@ -504,11 +501,12 @@
[else #f])))
;; check-filename-matches : string datum syntax -> void
(define (check-filename-matches filename datum unexpanded-stx)
(define (check-filename-matches filename name unexpanded-stx)
(define datum (syntax-e name))
(unless (symbol? datum)
(raise-syntax-error 'module-language
"unexpected object in name position of module"
unexpanded-stx))
"bad syntax in name position of module"
unexpanded-stx name))
(let-values ([(base name dir?) (split-path filename)])
(let* ([expected (string->symbol (path->string
(path-replace-suffix name #"")))])