diff options
Diffstat (limited to 'stdlib/source/library/lux/data/collection/dictionary/plist.lux')
-rw-r--r-- | stdlib/source/library/lux/data/collection/dictionary/plist.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/data/collection/dictionary/plist.lux b/stdlib/source/library/lux/data/collection/dictionary/plist.lux index a251109f4..88ea21f79 100644 --- a/stdlib/source/library/lux/data/collection/dictionary/plist.lux +++ b/stdlib/source/library/lux/data/collection/dictionary/plist.lux @@ -59,7 +59,7 @@ #.None false)) -(def: .public (put key val properties) +(def: .public (has key val properties) (All [a] (-> Text a (PList a) (PList a))) (case properties #.End @@ -70,9 +70,9 @@ (#.Item [key val] properties') (#.Item [k' v'] - (put key val properties'))))) + (has key val properties'))))) -(def: .public (update key f properties) +(def: .public (revised key f properties) (All [a] (-> Text (-> a a) (PList a) (PList a))) (case properties #.End @@ -81,9 +81,9 @@ (#.Item [k' v'] properties') (if (text\= key k') (#.Item [k' (f v')] properties') - (#.Item [k' v'] (update key f properties'))))) + (#.Item [k' v'] (revised key f properties'))))) -(def: .public (remove key properties) +(def: .public (lacks key properties) (All [a] (-> Text (PList a) (PList a))) (case properties #.End @@ -93,7 +93,7 @@ (if (text\= key k') properties' (#.Item [k' v'] - (remove key properties'))))) + (lacks key properties'))))) (def: .public equivalence (All [a] (-> (Equivalence a) (Equivalence (PList a)))) |