commit 5a109f8

target things will work?

 1@@ -39,11 +39,11 @@
 2 (call/cc (lambda (break)
 3 (do ((i 0 (+ i 1)))
 4     ((>= i (length f-list)))
 5-  (if (string=? (list-ref (string-split(list-ref f-list i)#\space)0) (cadcdr (command-line)))
 6-  (set! t-line i)
 7+  (if (string=? (car (line-parse (list-ref f-list i))) (caddr (command-line))))
 8+  (set! t-line i)(break)
 9 		))
10   ))
11-(list-sort (car (list-ref f-list t-line) t-list))
12+(set! t-list (list-sort (car (line-parse (list-ref f-list t-line))) m-list))
13 (set! t-list (delete-duplicates t-list equal?))
14 ;; (display t-list)(newline)
15