commit d42cdf1
chld
·
2026-08-15 13:57:02 +0000 UTC
parent 59d3068
add fallback dtr dir
1 files changed,
+1,
-1
M
cmd.scm
M
cmd.scm
+1,
-1
1@@ -12,4 +12,4 @@
2 (define (msg a) (format #t "\x1b[m\x1b[32m==>\x1b[m ~a" a)(newline))
3 (define (_warn a) (format #t "\x1b[m\x1b[33mwarning: \x1b[m~a" a)(newline))
4 (define (die a) (format #t "\x1b[m\x1b[31mERROR: \x1b[m~a" a)(quit 1))
5-(define (find-pkg p) (_system "find" (getenv "DTR_DIR") "-mindepth" "2" "-maxdepth" "2" "-name" p))
6+(define (find-pkg p) (_system "find" (or (getenv "DTR_DIR") "/ports") "-mindepth" "2" "-maxdepth" "2" "-name" p))