From f52ad25548bb142755a9d18a925b7d9d161d0d55 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 17 Mar 2022 15:57:45 +0530
Subject: issue: Replace delete-duplicates with lset-adjoin.

* tissue/issue.scm (hashtable-append!): Replace delete-duplicates with
lset-adjoin.
---
 tissue/issue.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 561b762..6a71874 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -72,8 +72,7 @@ associated to any value in HASHTABLE, assume it is associated to the
 empty list."
   (hashtable-update! hashtable
                      key
-                     (lambda (old-values)
-                       (delete-duplicates (append old-values new-values)))
+                     (cut apply lset-adjoin equal? <> new-values)
                      '()))
 
 (define (comma-split str)
-- 
cgit v1.2.3