From 377172761a2f4e50ac705ee365bf4e68aec9524d Mon Sep 17 00:00:00 2001 From: LeonardoBizzoni Date: Thu, 21 Dec 2023 08:04:45 +0100 Subject: [PATCH] =?utf8?q?Fixato=20backtracking=20a=20superclass=20se=20me?= =?utf8?q?todo=20gi=C3=A0=20definito=20dalla=20class?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- Prolog/README.org | 2 +- Prolog/oop.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Prolog/README.org b/Prolog/README.org index 1812694..3f9ce21 100644 --- a/Prolog/README.org +++ b/Prolog/README.org @@ -211,7 +211,7 @@ add_part(ClassName, [method(Name, ArgList, Body) | OtherParts]) :- asserta(is_member(method(Name, ArgList, Body), ClassName)), Fn =.. [Name, Instance | ArgList], - asserta(Fn :- call_method(Instance, ClassName, Body)), + asserta(Fn :- (call_method(Instance, ClassName, Body), !)), add_part(ClassName, OtherParts). #+end_src diff --git a/Prolog/oop.pl b/Prolog/oop.pl index 9cf2063..7bcd4c6 100644 --- a/Prolog/oop.pl +++ b/Prolog/oop.pl @@ -154,7 +154,7 @@ add_part(ClassName, [method(Name, ArgList, Body) | OtherParts]) :- asserta(is_member(method(Name, ArgList, Body), ClassName)), Fn =.. [Name, Instance | ArgList], - asserta(Fn :- call_method(Instance, ClassName, Body)), + asserta(Fn :- (call_method(Instance, ClassName, Body), !)), add_part(ClassName, OtherParts). -- 2.52.0