aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/cache/influences.lux
diff options
context:
space:
mode:
authorEduardo Julian2018-07-08 03:53:57 -0400
committerEduardo Julian2018-07-08 03:53:57 -0400
commite1cf2d9780de765fc925b0ea3c9b29d532e70c2e (patch)
tree524b3540261426ab4a1dc51735095302f5473193 /new-luxc/source/luxc/cache/influences.lux
parent5bc58409d87da0f4966d94224e6dd9c2a5a2a408 (diff)
- Ported caching machinery for Lux Meta-Compiler to stdlib.
Diffstat (limited to 'new-luxc/source/luxc/cache/influences.lux')
-rw-r--r--new-luxc/source/luxc/cache/influences.lux27
1 files changed, 0 insertions, 27 deletions
diff --git a/new-luxc/source/luxc/cache/influences.lux b/new-luxc/source/luxc/cache/influences.lux
deleted file mode 100644
index bbddd79aa..000000000
--- a/new-luxc/source/luxc/cache/influences.lux
+++ /dev/null
@@ -1,27 +0,0 @@
-(.module:
- lux
- (lux (data [text]
- (coll [list "list/" Fold<List>]
- (dictionary ["dict" unordered #+ Dict])))))
-
-(type: #export Influences (Dict Text (List Text)))
-
-(def: #export (track to from)
- (-> Text Text Influences Influences)
- (|>> (dict.update~ from (list) (|>> (#.Cons to)))
- (dict.update~ to (list) id)))
-
-(def: (effluents module influences)
- (-> Text Influences (Maybe (List Text)))
- (dict.get module influences))
-
-(def: #export (untrack module influences)
- (-> Text Influences Influences)
- (case (effluents module influences)
- (#.Some effluents)
- (list/fold untrack (dict.remove module influences) effluents)
-
- #.None
- influences))
-
-(def: #export empty Influences (dict.new text.Hash<Text>))