From 5c51096a88219ae4f80ab39f9890013e851eabc9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 21 Jun 2019 13:24:42 -0600 Subject: [PATCH] cs: repair `filesystem-change-evt` Correct an incomplete adaptation in a2a67a9660. --- racket/src/io/filesystem-change-evt/main.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/io/filesystem-change-evt/main.rkt b/racket/src/io/filesystem-change-evt/main.rkt index 20ec18d182..47efe1a221 100644 --- a/racket/src/io/filesystem-change-evt/main.rkt +++ b/racket/src/io/filesystem-change-evt/main.rkt @@ -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))