Newt in Newt compiles (but does not run)

2025-01-04 09:26:33 -08:00
parent 46434cc555
commit 6b1eef86a7
21 changed files with 2970 additions and 91 deletions
--- a/newt/SortedMap.newt
+++ b/newt/SortedMap.newt
@@ -198,3 +198,6 @@ foldMap f m Nil = m
 foldMap f m ((a,b) :: xs) = case lookupMap a m of
  Nothing => foldMap f (updateMap a b m) xs
  Just (_, b') => foldMap f (updateMap a (f b' b) m) xs
+
+listValues : ∀ k v. SortedMap k v → List v
+listValues sm = map snd $ toList sm