diff options
| -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) |