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

fix the contract on get-module-code

Browse Source 
closes PR 11836
This commit is contained in:
Robby Findler 2011-04-01 11:56:29 -05:00
parent b926b17d7e
commit d1414748a1
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/syntax/modcode.rkt
View File

@ -1,4 +1,4 @@
(module modcode scheme/base #lang racket/base
(require mzlib/port (require mzlib/port
racket/contract racket/contract
"modread.ss") "modread.ss")
@ -21,7 +21,7 @@
#:choose #:choose
(path? path? path? . -> . (or/c (symbols 'src 'zo 'so) false/c)) (path? path? path? . -> . (or/c (symbols 'src 'zo 'so) false/c))
#:notify (any/c . -> . any) #:notify (any/c . -> . any)
#:source-reader (any/c input-port? . -> . syntax?) #:source-reader (any/c input-port? . -> . (or/c syntax? eof-object?))
#:rkt-try-ss? boolean?) #:rkt-try-ss? boolean?)
any)]) any)])
@ -180,4 +180,5 @@
[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)
(current-continuation-marks) (current-continuation-marks)
#f))]))))) #f))]))))

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

@ -20,7 +20,7 @@
(lambda (src zo so) #f)] (lambda (src zo so) #f)]
[#:notify notify-proc (any/c . -> . any) void] [#:notify notify-proc (any/c . -> . any) void]
[#:source-reader read-syntax-proc [#:source-reader read-syntax-proc
(any/c input-port? . -> . syntax?) (any/c input-port? . -> . (or/c syntax? eof-object?))
read-syntax]) read-syntax])
any]{ any]{