[uim-commit] r140 - trunk/uim

[tkng@freedesktop.org]

Author: tkng
Date: 2005-01-06 03:05:39 -0800 (Thu, 06 Jan 2005)
New Revision: 140

Modified:
   trunk/uim/slib.c
Log:
* uim/slib.c: 
 - (mapcar3): Argument of fcn should be cdr of each lists.


Modified: trunk/uim/slib.c
===================================================================
--- trunk/uim/slib.c	2005-01-06 10:54:26 UTC (rev 139)
+++ trunk/uim/slib.c	2005-01-06 11:05:39 UTC (rev 140)
@@ -4059,8 +4059,7 @@
   for (l1 = cdr (in1), l2 = cdr (in2), l3 = cdr(in3);
        CONSP (l1) && CONSP (l2) && CONSP(l3);
        l1 = CDR (l1), l2 = CDR (l2), l3 = CDR (l3))
-    ptr = CDR (ptr) = cons (lapply (fcn, cons (CDR (l1), cons (CDR (l2), cons (CDR (l3), NIL)))), CDR (ptr));
-  //    ptr = CDR (ptr) = cons (funcall3 (fcn, CAR (l1), CAR (l2), CAR (l3)),
+    ptr = CDR (ptr) = cons (lapply (fcn, cons (CAR (l1), cons (CAR (l2), cons (CAR (l3), NIL)))), CDR (ptr));
   return (res);
 }