e6af5b3bc732 — Chris Cannam 2 years ago
Minor rename
1 files changed, 3 insertions(+), 3 deletions(-)

M trie-map-fn.sml
M trie-map-fn.sml +3 -3
@@ 462,7 462,7 @@ functor TrieMapFn (A : TRIE_MAP_FN_ARG)
     fun enumerate trie =
         foldri (fn (k, v, acc) => (k, v) :: acc) [] trie
             
-    fun foldiPrefix nodeFolder f =
+    fun foldiPrefixNode nodeFolder f =
         let fun foldi' (rpfx, xx, n, acc) =
                 if K.isEmpty xx
                 then nodeFolder f (rpfx, n, acc)

          
@@ 485,12 485,12 @@ functor TrieMapFn (A : TRIE_MAP_FN_ARG)
     fun foldliPrefix f acc (trie, e) =
         case trie of
             EMPTY => acc
-          | POPULATED n => foldiPrefix foldliNode f ([], e, n, acc)
+          | POPULATED n => foldiPrefixNode foldliNode f ([], e, n, acc)
 
     fun foldriPrefix f acc (trie, e) =
         case trie of
             EMPTY => acc
-          | POPULATED n => foldiPrefix foldriNode f ([], e, n, acc)
+          | POPULATED n => foldiPrefixNode foldriNode f ([], e, n, acc)
             
     fun enumeratePrefix (trie, e) =
         foldriPrefix (fn (k, v, acc) => (k, v) :: acc) [] (trie, e)