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

Forgot to update the contract on resolve-module-path

Browse Source
This commit is contained in:
Leif Andersen 2016-05-25 16:34:33 -04:00
parent 42e27fb4f7
commit cb9d08d2ee
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
racket/collects/syntax/modresolve.rkt
View File

@ -55,7 +55,7 @@
(loop (cdr accum) (cdr p)))] (loop (cdr accum) (cdr p)))]
[else (loop (cons (car p) accum) (cdr p))]))) [else (loop (cons (car p) accum) (cdr p))])))
(define (resolve-module-path s relto) (define (resolve-module-path s [relto #f])
;; relto should be a complete path, #f, or procedure that returns a ;; relto should be a complete path, #f, or procedure that returns a
;; complete path ;; complete path
(define (get-dir) (force-relto relto #t)) (define (get-dir) (force-relto relto #t))
@ -135,13 +135,13 @@
(or/c rel-to-path-string/c (-> rel-to-path-string/c) false/c)) (or/c rel-to-path-string/c (-> rel-to-path-string/c) false/c))
(provide/contract (provide/contract
[resolve-module-path (module-path? [resolve-module-path (->* (module-path?)
rel-to-path-string/thunk/#f (rel-to-path-string/thunk/#f)
. -> . (or/c path? symbol? (or/c path? symbol?
(cons/c 'submod (cons/c (or/c path? symbol?) (cons/c 'submod (cons/c (or/c path? symbol?)
(listof symbol?)))))] (listof symbol?)))))]
[resolve-module-path-index ((or/c symbol? module-path-index?) [resolve-module-path-index (->* ((or/c symbol? module-path-index?))
rel-to-path-string/thunk/#f (rel-to-path-string/thunk/#f)
. -> . (or/c path? symbol? (or/c path? symbol?
(cons/c 'submod (cons/c (or/c path? symbol?) (cons/c 'submod (cons/c (or/c path? symbol?)
(listof symbol?)))))]) (listof symbol?)))))])