diff options
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; |