aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/extension/analysis.lux
diff options
context:
space:
mode:
authorEduardo Julian2017-12-05 16:40:15 -0400
committerEduardo Julian2017-12-05 16:40:15 -0400
commit8a51602b3507a18a5ffae1710ba4e915cf31fe39 (patch)
tree746c7128299fccf8369c9c7c88015ea30967298e /new-luxc/source/luxc/lang/extension/analysis.lux
parent7e18f589a05bde28b3f710d92f72b7bd6b6e144f (diff)
- All analysis procedures have been turned into extensions.
Diffstat (limited to 'new-luxc/source/luxc/lang/extension/analysis.lux')
-rw-r--r--new-luxc/source/luxc/lang/extension/analysis.lux18
1 files changed, 14 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/extension/analysis.lux b/new-luxc/source/luxc/lang/extension/analysis.lux
index d034f2919..30f43acef 100644
--- a/new-luxc/source/luxc/lang/extension/analysis.lux
+++ b/new-luxc/source/luxc/lang/extension/analysis.lux
@@ -1,9 +1,19 @@
(.module:
lux
(lux (data [text]
- (coll [dict #+ Dict])))
- [//])
+ (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 //.Expression)
- (dict.new text.Hash<Text>))
+ (Dict Text //.Analysis)
+ (realize (dict.merge /common.procedures
+ /host.procedures)))