From a976208296c35023989a95ee77cab2ed7231cd52 Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Mon, 7 Jan 2019 21:51:00 +0300 Subject: zabbix.scm: Fix channel equality check. * zabbix.scm (main): Fix channel equality check. --- zabbix.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/zabbix.scm b/zabbix.scm index 618f796..ce81aab 100644 --- a/zabbix.scm +++ b/zabbix.scm @@ -134,8 +134,8 @@ newspace." (remote-channels remote)))))) (('diff name) (map (lambda (local remote) - (if (string=? name (symbol->string (channel-name local))) - (begin (display 0) (exit 1)) - (begin (display 1) (exit 0)))) + (if (equal? local remote) + (begin (display 1) (exit 0)) + (begin (display 0) (exit 1)))) (channels profile) (remote-channels remote))))) -- cgit v1.2.3