(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
(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