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/membero.adb | |
| parent | d39d7f30fa897a0c12c6be8b5d2c6a122336f267 (diff) | |
Removed Nametags and identifier aliasing for Variables
Diffstat (limited to 'test/membero.adb')
| -rw-r--r-- | test/membero.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/membero.adb b/test/membero.adb index 057843f..c111444 100644 --- a/test/membero.adb +++ b/test/membero.adb @@ -29,6 +29,7 @@ procedure Membero is package Printer is new SKomp.Pretty_Print (SU.To_String); + Relation : Goal := Empty_Goal; Test_Item : constant Term := T (T (+"one") & T (+"two") & T (+"three") & T (+"four")); @@ -42,7 +43,7 @@ begin TIO.New_Line; - Relation.Member (Relation.Fresh ("result") & Test_Item); + Relation.Member (Relation.Fresh & Test_Item); TIO.Put_Line ("Raw results:"); TIO.Put_Line (Printer.Image (Relation)); @@ -51,7 +52,7 @@ begin TIO.Put_Line ("Reified results:"); for Subst of Relation.Run_All loop - TIO.Put_Line (Printer.Image (Resolve_First (Subst, "result"))); + TIO.Put_Line (Printer.Image (Resolve_First (Subst))); end loop; end Membero; |