Added comment syntax to hubmgr's hublist file.

[doldaconnect.git] / lib / guile / hubmgr

diff --git a/lib/guile/hubmgr b/lib/guile/hubmgr
index e323992..e14044d 100755 (executable)
--- 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