diff options
Diffstat (limited to 'stdlib/source/lux/data/coll/tree/finger.lux')
| -rw-r--r-- | stdlib/source/lux/data/coll/tree/finger.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/data/coll/tree/finger.lux b/stdlib/source/lux/data/coll/tree/finger.lux index 355c89b55..3cf904c3f 100644 --- a/stdlib/source/lux/data/coll/tree/finger.lux +++ b/stdlib/source/lux/data/coll/tree/finger.lux @@ -1,4 +1,4 @@ -(;module: +(.module: lux (lux (control ["m" monoid]) (data text/format))) @@ -8,7 +8,7 @@ (#Branch m (Node m a) (Node m a))) (type: #export (Fingers m a) - {#monoid (m;Monoid m) + {#monoid (m.Monoid m) #tree (Node m a)}) (def: #export (tag fingers) @@ -36,17 +36,17 @@ (def: #export (search pred fingers) (All [m a] (-> (-> m Bool) (Fingers m a) (Maybe a))) - (let [tag/compose (get@ [#monoid #m;compose] fingers)] + (let [tag/compose (get@ [#monoid #m.compose] fingers)] (if (pred (tag fingers)) - (loop [_tag (get@ [#monoid #m;identity] fingers) + (loop [_tag (get@ [#monoid #m.identity] fingers) _node (get@ #tree fingers)] (case _node (#Leaf _ value) - (#;Some value) + (#.Some value) (#Branch _ left right) (let [shifted-tag (tag/compose _tag (tag (set@ #tree left fingers)))] (if (pred shifted-tag) (recur _tag left) (recur shifted-tag right))))) - #;None))) + #.None))) |