blob: 79fa3af88cfe9d1839e249cd7a1176af8c4ba499 (
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>]
(dictionary ["dict" unordered #+ 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)))
|
