blob: 6bdfa14c949a12984b8369a857da33377f132733 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(load "../common")
(vtest (let ((f (obtain (for ((i 0)) () ((inc i)) (yield i)))))
(take 2000 (gun (call f))))
(range* 0 2000))
(defun yflatten (obj)
(labels ((flatten-rec (obj)
(cond
((null obj))
((atom obj) (yield-from yflatten obj))
(t (flatten-rec (car obj))
(flatten-rec (cdr obj))))))
(flatten-rec obj)
nil))
(test (let ((f (obtain (yflatten '(a b (c . d) (e (f (g))))))))
(gun [f]))
(a b c d e f g))
|
