commit f49182b
chld
·
2026-09-13 13:06:14 +0000 UTC
parent 61e7547
avoid infinite recursion when dirnaming
1 files changed,
+3,
-1
M
pkg.scm
M
pkg.scm
+3,
-1
1@@ -176,7 +176,9 @@
2 ((m (find-pkg pkg)))
3 (if (member m (string-split DULL_PATH #\:))
4 (set! op m)
5- (dp (dirname m))
6+ (begin
7+ (dp (dirname m))
8+ (when (string=? m "/") (die (format #f "could not find parent of ~a" pkg)1)))
9 )
10 )
11