update find-relative-path type w/ new keyword (#518)
This commit is contained in:
parent
bf0761b500
commit
f4aff224a8
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue
Block a user