Merge content store

2025-05-22 16:13:57 -05:00
parent 3717942589
commit 43e83be9a4
13 changed files with 1000 additions and 217 deletions
--- a/lib/patterns.tri
+++ b/lib/patterns.tri
@ -1,5 +1,5 @@
 !import "base.tri" !Local
-!import "list.tri" List
+!import "list.tri" !Local

 match_ = y (self value patterns :
  triage
@ -17,8 +17,8 @@ match_ = y (self value patterns :
    patterns)

 match = (value patterns :
-  match_ value (List.map (sublist :
-    pair (List.head sublist) (List.head (List.tail sublist)))
+  match_ value (map (sublist :
+    pair (head sublist) (head (tail sublist)))
    patterns))

 otherwise = const (t t)