diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-17 15:35:49 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-17 15:35:49 +1300 |
| commit | fc4bc559d3f1ebf056c4afb8280a1ec8f4d90bc2 (patch) | |
| tree | 4e7e3f308f26fbc9162a3766b55da67423a1a81c /test/membero.adb | |
| parent | 0e3cb04b840c3ecc61b9e3efc77af5ebea585d17 (diff) | |
Lazy Conjunct should properly work for infinite results now
Diffstat (limited to 'test/membero.adb')
| -rw-r--r-- | test/membero.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/membero.adb b/test/membero.adb index bc51c33..89e7f2e 100644 --- a/test/membero.adb +++ b/test/membero.adb @@ -24,10 +24,10 @@ procedure Membero is renames SU.To_Unbounded_String; - package InKomp is new Kompsos (SU.Unbounded_String); - use InKomp; + package SKomp is new Kompsos (SU.Unbounded_String); + use SKomp; - package Printer is new InKomp.Pretty_Print (SU.To_String); + package Printer is new SKomp.Pretty_Print (SU.To_String); Verse : World := Empty_World; |