diff options
| author | Arun Isaac | 2022-03-17 15:57:45 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-03-18 16:23:38 +0530 |
| commit | f52ad25548bb142755a9d18a925b7d9d161d0d55 (patch) | |
| tree | d64fb6db3233947c8255828b8b334f2aeb4c6c62 | |
| parent | ba3d2c9705ab58bb35eaad3d49c8550289806015 (diff) | |
| download | tissue-f52ad25548bb142755a9d18a925b7d9d161d0d55.tar.gz tissue-f52ad25548bb142755a9d18a925b7d9d161d0d55.tar.lz tissue-f52ad25548bb142755a9d18a925b7d9d161d0d55.zip | |
issue: Replace delete-duplicates with lset-adjoin.
* tissue/issue.scm (hashtable-append!): Replace delete-duplicates with
lset-adjoin.
| -rw-r--r-- | tissue/issue.scm | 3 |
1 files changed, 1 insertions, 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) |