@max on the bounded lists: TextRing's slots, the pack's counts and change ring, the net's fact ring, the compass pools, ludic.ui's memo (its 3/4 of MM_CAP), screen pools, answer and pointer rings; ludic.base's intern test holds the table to its cap now that past it is Mem.over

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

packages/ludic.base/tests/text_test.ludic

@@ -24,7 +24,7 @@ program TextTest {
     sb_add(small, "a line longer than its buffer")
     expect_eq(sb_len(small), 16)
   }
-  test "the same bytes intern to the one string, made once; past the cap a plain copy" {
+  test "the same bytes intern to the one string, made once, up to the cap (past it is Mem.over, a failure)" {
     let sb = sb_new(32)
     let tb = strs_new(3)
     sb_add(sb, "08:03")
@@ -37,7 +37,7 @@ program TextTest {
     let ap: pointer = a
     let bp: pointer = b
     expect(ap == bp)
-    for i in 0 .. 5 {
+    for i in 0 .. 2 {
       sb_clear(sb)
       sb_int(sb, i)
       expect_eq(sb_intern(sb, tb), string(i))

packages/ludic.base/text_ring.ludic

@@ -3,7 +3,7 @@
 # is made. What a slot hands out is good until the ring comes round to it again - size the ring to
 # what can be showing at once
 export property TextRing {
-  slots: []pointer = new []pointer
+  @max(64) slots: []pointer = new []pointer
   cap: int = 0
   at: int = 0
 }