From 0263b50c17abcfd7e850277686779a1efd521158 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 23 Oct 2019 18:29:33 -0600
Subject: [PATCH] reference: add examples for `in-directory`

---
 .../scribblings/reference/sequences.scrbl     | 22 +++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/pkgs/racket-doc/scribblings/reference/sequences.scrbl b/pkgs/racket-doc/scribblings/reference/sequences.scrbl
index 11c755a493..f2124700fd 100644
--- a/pkgs/racket-doc/scribblings/reference/sequences.scrbl
+++ b/pkgs/racket-doc/scribblings/reference/sequences.scrbl
@@ -534,6 +534,28 @@ each element in the sequence.
   @racket[path<?], and the content of a subdirectory is reported
   before subsequent paths within the directory.
 
+  @examples[
+    (eval:alts (current-directory (collection-path "info"))
+               (void))
+    (eval:alts (for/list ([f (in-directory)])
+                  f)
+               (map string->path '("main.rkt"
+                                   "compiled"
+                                   "compiled/main_rkt.dep"
+                                   "compiled/main_rkt.zo")))
+    (eval:alts (for/list ([f (in-directory "compiled")])
+                 f)
+               (map string->path '("main_rkt.dep"
+                                   "main_rkt.zo")))
+    (eval:alts (for/list ([f (in-directory "compiled")])
+                 f)
+               (map string->path '("compiled/main_rkt.dep"
+                                   "compiled/main_rkt.zo")))
+    (eval:alts (for/list ([f (in-directory #f (lambda (p)
+                                                (not (regexp-match? #rx"compiled" p))))])
+                  f)
+               (map string->path '("main.rkt" "compiled")))
+  ]
 
 @history[#:changed "6.0.0.1" @elem{Added @racket[use-dir?] argument.}
          #:changed "6.6.0.4" @elem{Added guarantee of sorted results.}]}