commit 9cb7f43
chld
·
2026-08-15 19:28:31 +0000 UTC
parent 100a5e7
it executes commands :D
1 files changed,
+4,
-3
M
test.scm
M
test.scm
+4,
-3
1@@ -51,11 +51,12 @@
2 (not (char=? (string-ref (list-ref f-list r) 0)
3 #\tab))))
4 (if (char=? (string-ref (list-ref f-list r) 1) #\@)
5- '()
6+ (system (string-delete #\@ (substring (list-ref f-list r)1)))
7 (begin
8- (display (string-delete #\tab (list-ref f-list r)))(newline)
9+ (format #t "+ ~a" (string-delete #\tab (list-ref f-list r)))(newline)
10+ (system (substring (list-ref f-list r)1))
11 )
12- )
13+ )
14 )
15 (break)))))))
16 ;; => (1 2 3 4 5)