blob: 30f43acef3f902434309d79dd5b53da05c781d0f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(.module:
lux
(lux (data [text]
(coll [list "list/" Functor<List>]
[dict #+ Dict])))
[//]
[/common]
[/host])
(def: realize
(-> /common.Bundle (Dict Text //.Analysis))
(|>> dict.entries
(list/map (function [[name proc]] [name (proc name)]))
(dict.from-list text.Hash<Text>)))
(def: #export defaults
(Dict Text //.Analysis)
(realize (dict.merge /common.procedures
/host.procedures)))
|
