diff options
author | Eduardo Julian | 2018-07-08 03:53:57 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-08 03:53:57 -0400 |
commit | e1cf2d9780de765fc925b0ea3c9b29d532e70c2e (patch) | |
tree | 524b3540261426ab4a1dc51735095302f5473193 /new-luxc/source/luxc/cache/influences.lux | |
parent | 5bc58409d87da0f4966d94224e6dd9c2a5a2a408 (diff) |
- Ported caching machinery for Lux Meta-Compiler to stdlib.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/cache/influences.lux | 27 |
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>)) |