commit c836cd2

chld  ·  2026-09-12 03:19:50 +0000 UTC
parent 2396d51 
begin on cadr parsing
1 files changed,  +7, -1
M main.scm
M main.scm
+7, -1 
 1@@ -18,6 +18,12 @@
 2       "deadbeef"
 3       ))
 4 
 5+(define pkg
 6+  (if (> (length (command-line)) 2)
 7+      (caddr (command-line))
 8+      "deadbeef"
 9+      ))
10+
11 (when (string=? c "deadbeef")
12   (begin
13     (usage)
14@@ -41,7 +47,7 @@
15        (msg "syncing")
16        )
17       ((#\b)
18-       (build-pkg "f")
19+       (build-pkg pkg)
20        )
21       )
22