X-Git-Url: http://dolda2000.com/gitweb/?p=doldaconnect.git;a=blobdiff_plain;f=lib%2Fguile%2Fhubmgr;h=e14044dfb13441604b5afee6de86222cf2d6c0af;hp=e323992a6b9a70a09fd292e4631d90f4ac505785;hb=cac2915d81f71d6f778a80c40216e48129b444df;hpb=f9661e7e8994604df256282ac9b8cfe2c41266e9 diff --git a/lib/guile/hubmgr b/lib/guile/hubmgr index e323992..e14044d 100755 --- a/lib/guile/hubmgr +++ b/lib/guile/hubmgr @@ -57,7 +57,8 @@ (begin (close-port p) lines) (read-lines (let ((lexed (dc-lexsexpr line))) - (if (> (length lexed) 0) + (if (and (> (length lexed) 0) + (not (eq? (string-ref (car lexed) 0) #\#))) (append lines (list lexed)) lines)) p)))))) (catch 'system-error @@ -79,9 +80,6 @@ (same (car delta)) (del (cadr delta)) (new (caddr delta))) - (display same) (newline) - (display del) (newline) - (display new) (newline) (for-each (lambda (o) (let ((el (assq o connlist))) (if el