commit cee1545
chld
·
2026-09-12 20:26:01 +0000 UTC
parent a89192d
add global filename define
2 files changed,
+2,
-2
M
main.scm
+1,
-1
1@@ -15,7 +15,7 @@
2
3 (unless
4 (zero? (getuid))
5- (die (format #f "you need to run ~a as root." (basename (car (command-line)))) 1))
6+ (die (format #f "you need to run ~a as root." DULL 1)))
7
8 (define c
9 (if (> (length (command-line)) 1)
+1,
-1
1@@ -1,4 +1,4 @@
2-(define DULL (basename (cadr (command-line))))
3+(define DULL (basename (car (command-line))))
4 (define DULL_DIR "/var/tmp/dtr")
5 (define DULL_DB "/var/lib/dull")
6 (define DULL_PATH (or (getenv "DULL_PATH") "/ports-dull"))