07224b7b6012 — Chris Cannam 1 year, 5 months ago 
Fix example code (api changed here some time ago)
patch browse 
1 files changed, 1 insertions(+), 1 deletions(-)

M example/readtest.sml

M example/readtest.sml +1 -1
@@ 33,7 33,7 @@ functor ReadSummariseFn (T : STRING_TRIE
         let fun wc (k, v) = k ^ " (" ^ Int.toString v ^ ")"
         in
             app (fn (k, v) =>
-                    let val matching = tl (T.prefixMatch (trie, k))
+                    let val matching = tl (T.enumeratePrefix (trie, k))
                     in
                         print (wc (k, v) ^
                                (case matching of