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

This commit is contained in:
Andrew Kent 2017-03-26 09:11:12 -04:00 committed by GitHub
parent bf0761b500
commit f4aff224a8

View File

@ -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))