picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE
commit b64fa6edd36c662b4f30f5c38c3b1de1735d1c5f
parent 6aa067c9359a94e8bdd071f0f3a70d2cf4cd5e95
Author: Commit-Bot <unknown>
Date:   Fri,  9 Jul 2010 08:42:57 +0000

Automatic commit from picoLisp.tgz, From: Fri, 09 Jul 2010 08:42:57 GMT
Diffstat:

Mlib.l | 10++++------


1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/lib.l b/lib.l
@@ -207,12 +207,10 @@
 
 (de group (Lst)
    (make
-      (map
-         '((L)
-            (if (assoc (caar L) (made))
-               (conc @ (cons (cdar L)))
-               (link (cons (caar L) (cons (cdar L)))) ) )
-         Lst ) ) )
+      (for X Lst
+         (if (assoc (car X) (made))
+            (conc @ (cons (cdr X)))
+            (link (list (car X) (cdr X))) ) ) ) )
 
 ### Symbol ###
 (de qsym "Sym"