- (
- #comment
- (let config (DataSource 'config))
- (let row1 (AsStruct '('key (String 'key1)) '('subkey (String '.)) '('value (String 'value1))))
- (let row2 (AsStruct '('key (String 'key2)) '('subkey (String '.)) '('value (String 'value2))))
- (let table1 (AsList row1 row2))
- (let res_sink (DataSink 'result))
- (let world (Write! world res_sink (Key) table1 '('('columns '('value 'subkey 'key)) '('type))))
- (let world (Commit! world res_sink))
- (return world)
- )
|