From 23d33e0ed6b2365d1f2b9db37e3a93ab8717e446 Mon Sep 17 00:00:00 2001 From: fredrik Date: Mon, 29 May 2006 19:28:13 +0000 Subject: [PATCH] Ignore 602 (don't replace ID with name). git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@623 959494ce-11ee-0310-bf91-de5d638817bd --- lib/guile/chatlog | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lib/guile/chatlog b/lib/guile/chatlog index 4d0b630..e81e11b 100755 --- a/lib/guile/chatlog +++ b/lib/guile/chatlog @@ -123,13 +123,13 @@ (close-port p)) )) ) - ((602) - (let ((ires (dc-intresp resp))) - (if ires - (let ((ent (assoc (car ires) fnetnodes))) - (if ent - (set-cdr! ent (cadr ires)) - (set! fnetnodes (cons (cons (car ires) (cadr ires)) fnetnodes))))))) +; ((602) +; (let ((ires (dc-intresp resp))) +; (if ires +; (let ((ent (assoc (car ires) fnetnodes))) +; (if ent +; (set-cdr! ent (cadr ires)) +; (set! fnetnodes (cons (cons (car ires) (cadr ires)) fnetnodes))))))) ) ) -- 2.11.0