From 616f41d15009b1133cbdc14bace6ab84f1325921 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 12 Jan 2026 18:51:32 +1300 Subject: Removed Nametags and identifier aliasing for Variables --- test/membero.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'test/membero.adb') 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; -- cgit