commit 1c0bf39
chld
·
2026-08-15 20:34:22 +0000 UTC
parent 6b4f6b0
specify a makefile ig
1 files changed,
+3,
-1
M
test.scm
M
test.scm
+3,
-1
1@@ -11,7 +11,9 @@
2 (define t-list '())
3 (define m-list '())
4 (define v-list '())
5-(define f-list (file-read "Makefile"))
6+(define f-list (file-read
7+ (if (> (length (command-line)) (+ 1 1)) (caddr (command-line)) "Makefile")
8+ ))
9
10 (do ((l (- (length f-list) 1) (- l 1)))
11 ((< l 0))