commit a00a853
chld
·
2026-08-15 22:17:36 +0000 UTC
parent 07e58d6
remove extra shit in format for showing cmd
1 files changed,
+2,
-3
M
test.scm
M
test.scm
+2,
-3
1@@ -69,11 +69,10 @@
2 (system (string-delete #\@ (substring (list-ref f-list r)1)))
3
4 (begin
5- (format #t "+ ~a" (var-expand (string-delete #\tab (list-ref f-list r)) v-list))
6+ (format #t "~a~%" (var-expand (string-delete #\tab (list-ref f-list r)) v-list))
7
8 (if (string-contains (list-ref f-list r) "$(")
9- (system (var-expand (substring (list-ref f-list r) 1)v-list))
10- (system (substring (list-ref f-list r)1)))
11+ (system (var-expand (substring (list-ref f-list r) 1)v-list)))
12 (break)))))))
13 )))
14 ;; => (1 2 3 4 5)