update find-relative-path type w/ new keyword (#518)

2017-03-26 09:11:12 -04:00 · 2017-03-26 09:11:12 -04:00 · f4aff224a8
commit f4aff224a8
parent bf0761b500
1 changed files with 5 additions and 1 deletions
--- a/typed-racket-lib/typed-racket/base-env/base-env.rkt
+++ b/typed-racket-lib/typed-racket/base-env/base-env.rkt
@ -3356,7 +3356,11 @@
            (-lst -Bytes)))
 (display-lines
 (->optkey (-lst Univ) [-Output-Port] #:separator Univ #f -Void))
-(find-relative-path (->key -SomeSystemPathlike -SomeSystemPathlike #:more-than-root? Univ #f -SomeSystemPath))
+(find-relative-path (->key -SomeSystemPathlike 
+                           -SomeSystemPathlike 
+                           #:more-than-root? Univ #f
+                           #:normalize-case? Univ #f
+			   -SomeSystemPath))
 (regexp-match*
 (let ((N -Integer)
       (?N (-opt -Integer))