Revert assoc :key behavior for backward compatibility (euslisp#436 and …

…euslisp#450)
Affonso-Gui · Mar 27, 2023 · 7976af8 · 7976af8
1 parent 69343f9
commit 7976af8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lisp/c/lists.c b/lisp/c/lists.c
@@ -334,7 +334,8 @@ register pointer argv[];
     if (islist(target)) {	/*ignore non-pair elements*/
       if (rassoc==NIL) temp=ccar(target);
       else temp=ccdr(target);
-      if (key!=NIL) temp=call1(ctx,key,temp);
+      if (key==NIL) temp=ccar(target);
+      else temp=call1(ctx,key,target);
       if (ifnottest!=NIL) compare=(call1(ctx,ifnottest,temp)==NIL);
       else if (iftest!=NIL) compare=(call1(ctx,iftest,temp)!=NIL);
       else if (testnot!=NIL) compare=(call2(ctx,testnot,item,temp)==NIL);