X-Authentication-Warning: delorie.com: mail set sender to geda-user-bounces using -f
X-Recipient: geda-user AT delorie DOT com
X-Mailer: exmh version 2.8.0 04/21/2012 with nmh-1.7+dev
X-Exmh-Isig-CompType: comp
X-Exmh-Isig-Folder: inbox
From: "karl AT aspodata DOT se [via geda-user AT delorie DOT com]" <geda-user AT delorie DOT com>
To: geda-user AT delorie DOT com
Subject: [geda-user] source-library-search
Mime-Version: 1.0
Content-Type: text/plain; charset="utf-8"
Message-Id: <20210703144758.4EA6983DA2A5@turkos.aspodata.se>
Date: Sat,  3 Jul 2021 16:47:58 +0200 (CEST)
X-Virus-Scanned: ClamAV using ClamSMTP
Reply-To: geda-user AT delorie DOT com

source-library-search duplicates the last element in its argument.

///

 If I have (in gafrc):
(define home (getenv "HOME"))
(source-library-search (build-path home "git/openhw/share/gschem"))

 I get (at startup, e.g. lepton-cli export):
** (export:8307): CRITICAL **: 16:20:23.520: Invalid path "/home/karl/git/openhw/share/gschem/gschem/_connector" or source not readable.

and similar lines, why the gschem/gschem duplicate ?
component-library-search and source-library works lika
a charm, why not source-library-search ?

If I use "git/openhw/share", it duplicates "share".
If I use "git/openhw", it duplicates "openhw".
If I use "git/openhw/share/_sub_page", I get:

Backtrace:
In ice-9/boot-9.scm:
 160: 7 [catch #t #<catch-closure 7f9eb23e7460> ...]
In unknown file:
   ?: 6 [apply-smob/1 #<catch-closure 7f9eb23e7460>]
In ice-9/boot-9.scm:
 160: 5 [catch #t #<catch-closure 7f9eb21c9ec0> ...]
In unknown file:
   ?: 4 [apply-smob/1 #<catch-closure 7f9eb21c9ec0>]
In /usr/local/share/lepton-eda/scheme/lepton/library.scm:
 135: 3 [source-library-search "/home/karl/git/openhw/share/_sub_page"]
 117: 2 [get-tree #f]
In ice-9/boot-9.scm:
 105: 1 [#<procedure 7f9eb1fdaf00 at ice-9/boot-9.scm:100:6 (thrown-k . args)> match-error ...]
In unknown file:
   ?: 0 [apply-smob/1 #<catch-closure 7f9eb21c9e40> match-error ...]

ERROR: In procedure apply-smob/1:
ERROR: In procedure match: no matching pattern

** Message: 16:42:49.836: ERROR: Failed to load RC file [/home/karl/.config/lepton-eda/gafrc]: ERROR: no matching pattern

ERROR: Failed to load RC file [/home/karl/.config/lepton-eda/gafrc]: ERROR: no matching pattern

///

liblepton/scheme/lepton/library.scm
mentions set-library-contents as a replacement, but cannot find it.
Where is it ?

/Karl Hammar