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

PR 8371

Browse Source 
svn: r4769
This commit is contained in:
Matthew Flatt 2006-11-03 21:43:03 +00:00
parent 616d6b80c8
commit 67fd787c3a
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/syntax/moddep.ss
View File

@ -109,20 +109,20 @@
(read-syntax path p)))])
(when (eof-object? v)
(error 'read-one "empty file; expected a module declaration in: ~a" path))
(let ([name (let-values ([(base name dir?) (split-path path)])
(string->symbol (bytes->string/utf-8
(path->bytes (path-replace-suffix name #""))
#\?)))])
(check-module-form v name path))
(unless (eof-object? (read p))
(error
'read-one
"file has more than one expression; expected a module declaration only in: ~a"
path))
(if (and (syntax? v)
(compiled-expression? (syntax-e v)))
(syntax-e v)
v)))
(let* ([name (let-values ([(base name dir?) (split-path path)])
(string->symbol (bytes->string/utf-8
(path->bytes (path-replace-suffix name #""))
#\?)))]
[v (check-module-form v name path)])
(unless (eof-object? (read p))
(error
'read-one
"file has more than one expression; expected a module declaration only in: ~a"
path))
(if (and (syntax? v)
(compiled-expression? (syntax-e v)))
(syntax-e v)
v))))
(lambda () (close-input-port p)))))
(define-struct (exn:get-module-code exn) (path))