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

cs: repair filesystem-change-evt

Browse Source 
Correct an incomplete adaptation in a2a67a9660.
This commit is contained in:
Matthew Flatt 2019-06-21 13:24:42 -06:00
parent f27924b8a7
commit 5c51096a88
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/io/filesystem-change-evt/main.rkt
View File

@ -39,7 +39,7 @@
(define/who (filesystem-change-evt p [fail #f])
(check who path-string? p)
(check who (procedure-arity-includes/c 0) fail)
(check who (procedure-arity-includes/c 0) #:or-false fail)
(define fn (->host p who '(exists)))
(start-atomic)
(define file-rfc (rktio_fs_change rktio fn shared-ltps))