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

get-module-code repair

Browse Source
This commit is contained in:
Matthew Flatt 2012-03-09 06:00:00 -07:00
parent a6a1b02de5
commit 6743900fc7
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/syntax/modcode.rkt
View File

@ -193,7 +193,13 @@
[(or (eq? prefer 'src) [(or (eq? prefer 'src)
path-d) path-d)
(notify path) (notify path)
(extract-submodule (with-dir (lambda () (compiler (read-one orig-path path #t read-src-syntax)))))] (define (compile-one)
(with-dir (lambda () (compiler (read-one orig-path path #t read-src-syntax)))))
(if (null? submodule-path)
;; allow any result:
(compile-one)
;; expect a compiled-module result:
(extract-submodule (compile-one)))]
;; Report a not-there error ;; Report a not-there error
[else (raise (make-exn:get-module-code [else (raise (make-exn:get-module-code
(format "get-module-code: no such file: ~e" orig-path) (format "get-module-code: no such file: ~e" orig-path)

3
collects/syntax/scribblings/modcode.scrbl
View File

@ -35,7 +35,8 @@ module.
The @racket[compile-proc] argument defaults to @racket[compile]. This The @racket[compile-proc] argument defaults to @racket[compile]. This
procedure is used to compile module source if an already-compiled procedure is used to compile module source if an already-compiled
version is not available. version is not available. If @racket[submodule-path] is not @racket['()],
then @racket[compile-proc] must return a compiled module form.
The @racket[ext-proc] argument defaults to @racket[#f]. If it is not The @racket[ext-proc] argument defaults to @racket[#f]. If it is not
@racket[#f], it must be a procedure of two arguments that is called @racket[#f], it must be a procedure of two arguments that is called