blob: 1d24deecd5010869cbf1830a8a7b8460fcdb0392 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(
(let config (DataSource 'config))
(let world (Configure! world config 'PureDataSource 'yt))
(let list (AsList (String 'a) (String 'b) (String 'c)))
(let data (Condense list (AddMember (Struct) 'z (String '""))
(lambda '(item state) (Bool 'false))
(lambda '(item state)
(AddMember
(Struct)
'z
(Concat (Member state 'z) item)))))
(let res_sink (DataSink 'result))
(let world (Write! world res_sink
(Key)
data '()))
(let world (Commit! world res_sink))
(return world)
)
|
