[elpa] externals/dash 91a2b14 13/14: [Fix #101] Fix reversed condition for hashtable -union.

[Phillip Lord]

branch: externals/dash
commit 91a2b148483a808e4b6918c995888d1c1922ec55
Author: Matus Goljer <address@hidden>
Commit: Matus Goljer <address@hidden>

    [Fix #101] Fix reversed condition for hashtable -union.
---
 dash.el |    9 ++++-----
 1 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/dash.el b/dash.el
index 6cd9a24..7b50120 100644
--- a/dash.el
+++ b/dash.el
@@ -1792,11 +1792,10 @@ or with `-compare-fn' if that's non-nil."
                           -compare-fn
                         'equal)))
     (if (memq -compare-fn '(eq eql equal))
-        (progn
-          (--each list2 (unless (-contains? result it) (!cons it result))))
-      (let ((ht (make-hash-table :test -compare-fn)))
-        (--each list (puthash it it ht ))
-        (--each list2 (unless (gethash it ht) (!cons it result)))))
+        (let ((ht (make-hash-table :test -compare-fn)))
+          (--each list (puthash it t ht))
+          (--each list2 (unless (gethash it ht) (!cons it result))))
+      (--each list2 (unless (-contains? result it) (!cons it result))))
     (nreverse result)))
 
 (defun -intersection (list list2)