commit 6aa067c9359a94e8bdd071f0f3a70d2cf4cd5e95 parent 02a02e9b9a2830d40b7b24bc4e8d82849c42058d Author: Commit-Bot <unknown> Date: Fri, 9 Jul 2010 08:26:57 +0000 Automatic commit from picoLisp.tgz, From: Fri, 09 Jul 2010 08:26:57 GMT Diffstat:
| M | lib.l | | | 13 | +++++++------ |
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/lib.l b/lib.l @@ -1,4 +1,4 @@ -# 30may10abu +# 09jul10abu # (c) Software Lab. Alexander Burger (de task (Key . Prg) @@ -207,11 +207,12 @@ (de group (Lst) (make - (while Lst - (if (assoc (caar Lst) (made)) - (conc @ (cons (cdr (pop 'Lst)))) - (link - (cons (caar Lst) (cons (cdr (pop 'Lst)))) ) ) ) ) ) + (map + '((L) + (if (assoc (caar L) (made)) + (conc @ (cons (cdar L))) + (link (cons (caar L) (cons (cdar L)))) ) ) + Lst ) ) ) ### Symbol ### (de qsym "Sym"