From 2791c78d5fd6754e5ce31c95e12db0b525eadcb4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 5 Nov 2021 23:42:28 +0530
Subject: doc: Search source-path in scheme-source-form.

* doc/skribilo.scm (scheme-source-form): Search source-path.
---
 doc/skribilo.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'doc')

diff --git a/doc/skribilo.scm b/doc/skribilo.scm
index cba6d08..c9a2b53 100644
--- a/doc/skribilo.scm
+++ b/doc/skribilo.scm
@@ -130,7 +130,8 @@ and END are line numbers indexed from 1."
 (define (scheme-source-form file regexp)
   "Extract form from scheme source FILE whose beginning matches
 REGEXP. Return it enclosed in a prog form."
-  (prog (match (sexp-file-lines file regexp)
+  (prog (match (sexp-file-lines (search-path (*source-path*) file)
+                                regexp)
           ((start . stop)
            (source #:language scheme
                    #:file file
-- 
cgit v1.2.3