diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2026-01-12 18:51:32 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2026-01-12 18:51:32 +1300 |
| commit | 616f41d15009b1133cbdc14bace6ab84f1325921 (patch) | |
| tree | 1b0e6c6f3170588bd544c0300b2ef41e0d0fabe8 /test/rembero.adb | |
| parent | d39d7f30fa897a0c12c6be8b5d2c6a122336f267 (diff) | |
Removed Nametags and identifier aliasing for Variables
Diffstat (limited to 'test/rembero.adb')
| -rw-r--r-- | test/rembero.adb | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/test/rembero.adb b/test/rembero.adb index e64314e..301c85c 100644 --- a/test/rembero.adb +++ b/test/rembero.adb @@ -24,8 +24,13 @@ procedure Rembero is package Printer is new InKomp.Pretty_Print (Integer'Image); + Relation : Goal := Empty_Goal; + Item_Term : constant Term := Relation.Fresh; + List_Term : constant Term := Relation.Fresh; + Out_Term : constant Term := Relation.Fresh; + begin TIO.Put_Line ("Test program to check if calculating an infinite number of results works."); @@ -35,7 +40,7 @@ begin TIO.New_Line; - Relation.Remove (Relation.Fresh ("item") & Relation.Fresh ("list") & Relation.Fresh ("out")); + Relation.Remove (Item_Term & List_Term & Out_Term); declare First_Five : constant State_Array := Relation.Run (5); @@ -49,11 +54,11 @@ begin for Index in First_Five'Range loop TIO.Put_Line ("#" & Printer.Image (Index) & ":"); TIO.Put_Line (Latin.HT & "item: " & - Printer.Image (Resolve_First (First_Five (Index), "item"))); + Printer.Image (Item_Term.Resolve (First_Five (Index)))); TIO.Put_Line (Latin.HT & "list: " & - Printer.Image (Resolve_First (First_Five (Index), "list"))); + Printer.Image (List_Term.Resolve (First_Five (Index)))); TIO.Put_Line (Latin.HT & "out: " & - Printer.Image (Resolve_First (First_Five (Index), "out"))); + Printer.Image (Out_Term.Resolve (First_Five (Index)))); end loop; end; |