commit d8af6d8
chld
·
2026-08-15 21:24:37 +0000 UTC
parent 5a109f8
target things actually work
1 files changed,
+3,
-2
M
test.scm
M
test.scm
+3,
-2
1@@ -39,8 +39,9 @@
2 (call/cc (lambda (break)
3 (do ((i 0 (+ i 1)))
4 ((>= i (length f-list)))
5- (if (string=? (car (line-parse (list-ref f-list i))) (caddr (command-line))))
6- (set! t-line i)(break)
7+ (if (and (string-contains (list-ref f-list i) ":")
8+ (string=? (car (line-parse (list-ref f-list i))) (caddr (command-line))))
9+ (begin (set! t-line i)(break))
10 ))
11 ))
12 (set! t-list (list-sort (car (line-parse (list-ref f-list t-line))) m-list))