From 8560d5d0045cc5d6d28dcce1bc3e51bf89e5e979 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 10 Sep 2023 17:10:50 +0200
Subject: Allow find-undocumented to skip files.

---
 module/scripts/find-undocumented.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/module/scripts/find-undocumented.scm b/module/scripts/find-undocumented.scm
index 01dde818..8c321fc2 100644
--- a/module/scripts/find-undocumented.scm
+++ b/module/scripts/find-undocumented.scm
@@ -102,6 +102,9 @@
 (define (main . args)
   (define source-directory "module")
   (define doc-dir "doc/ref")
+  (define skip-files
+    '("module/graphvis.scm"
+      "module/glob.scm"))
 
   (define documented-symbols
     (concatenate
@@ -126,6 +129,8 @@
   (define defined-symbols
     (concatenate
      (for path in (all-modules-under-directory source-directory)
+          (when (member path skip-files)
+            (continue))
           (define components* (drop (path-split path) (length (path-split source-directory))))
           (define name
             (map string->symbol
-- 
cgit v1.2.3