commit f10b70b

update in DULL_PATH

 1@@ -16,7 +16,7 @@
 2 (when (or (= (length (command-line)) 1)
 3 	  (and (not (> (length (command-line)) 2))
 4 	       (any (lambda (c) (string-contains (cadr (command-line)) c))
 5-				     '("b" "d" "i" "c" "f" "m")))
 6+		    '("b" "d" "i" "c" "f" "m")))
 7 	  )
 8   (usage)
 9   (exit 0)
10@@ -60,16 +60,20 @@
11        (exit 0)
12        )
13       ((#\u)
14-       (let (
15-	     (s "/ports-dull")
16-	     )
17-	 (if (not (file-exists? s))
18-	     (system* "git" "clone" "https://codeberg.org/derivelinux/ports.git" s)
19-	     (begin
20-	       (chdir s)
21-	       (system* "git" "pull")
22+       (let up (
23+		(s (string-split DULL_PATH #\:))
24+		(n 0)
25+		)
26+	 (unless (= n (length s))
27+	   (if (not (file-exists? (format #f "~a/.git/" (list-ref s n))))
28+	       (system* "git" "clone" "https://codeberg.org/derivelinux/ports.git" s)
29+	       (begin
30+		 (chdir (list-ref s n))
31+		 (system* "git" "pull")
32+		 )
33 	       )
34-	     )
35+	   (up s (+ n 1))
36+	   )
37 	 )
38        )
39       ((#\b)