commit 2ce570b
chld
·
2026-08-15 16:04:08 +0000 UTC
parent b828b12
hmm
1 files changed,
+5,
-4
M
test.scm
M
test.scm
+5,
-4
1@@ -11,9 +11,10 @@
2
3 (do ((l (- (length f-list) 1) (- l 1)))
4 ((< l 0))
5- (set! m-list
6- (cons (line-parse (list-ref f-list l))
7- m-list)))
8+ (set! m-list (cons (line-parse (list-ref f-list l)) m-list)))
9
10-(display m-list)
11+(display (reverse m-list))
12 (newline)
13+
14+;; (display (list-ref (list-ref (list-ref m-list 0) 1) 0))
15+