fixed redundant eval left over in fix to issue trueagi-io/metta-wam#225

logicmoo · Dec 30, 2024 · 2da3563 · 2da3563
1 parent a103954
commit 2da3563
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/prolog/metta_lang/metta_eval.pl b/prolog/metta_lang/metta_eval.pl
@@ -2746,8 +2746,7 @@
     eval_defn_failure(Eq,RetType,Depth,Self,X,Y)).
 
 
-eval_defn_success(Eq,RetType,Depth,Self,XIn,ResOutY,XX,B0,USED):-
-  eval_adjust_args(Eq,RetType,Y,ResOutY,Depth,Self,XIn,X),
+eval_defn_success(Eq,RetType,Depth,Self,X,Y,XX,B0,USED):-
   X=XX, Y=B0, X\=@=B0,
   if_trace(e,color_g_mesg('#773700',indentq2(Depth,defs_used(USED)))),
   light_eval(Eq,RetType,Depth,Self,B0,Y),!.