diff options
| author | Arun Isaac | 2021-11-05 23:42:28 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-11-05 23:42:28 +0530 |
| commit | 2791c78d5fd6754e5ce31c95e12db0b525eadcb4 (patch) | |
| tree | 482585531c44ebabc76fed36953cd65edf903a05 /doc | |
| parent | 8ec8801a3f7187a0c6164374a20c9f39ffb19b5d (diff) | |
| download | ccwl-2791c78d5fd6754e5ce31c95e12db0b525eadcb4.tar.gz ccwl-2791c78d5fd6754e5ce31c95e12db0b525eadcb4.tar.lz ccwl-2791c78d5fd6754e5ce31c95e12db0b525eadcb4.zip | |
doc: Search source-path in scheme-source-form.
* doc/skribilo.scm (scheme-source-form): Search source-path.
Diffstat (limited to 'doc')
| -rw-r--r-- | doc/skribilo.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |