Omit some vestiges in nntp.scm.

diff --git a/src/edwin/nntp.scm b/src/edwin/nntp.scm
index 3dc727dc146eb27efd54e9f1874958b1df40ccf1..74a03990945957b75913330d0fce7afe50979738 100644 (file)
--- a/src/edwin/nntp.scm
+++ b/src/edwin/nntp.scm
@@ -1860,19 +1860,6 @@ USA.
            y
            (loop (cdr x) (if (memq (car x) y) y (cons (car x) y)))))))
 
-(define (differenceq x y)
-  (if (null? y)
-      x
-      (let loop ((x x) (z '()))
-       (if (null? x)
-           (reverse! z)
-           (loop (cdr x) (if (memq (car x) y) z (cons (car x) z)))))))
-
-(define (subsetq? x y)
-  (or (null? x)
-      (and (memq (car x) y)
-          (subsetq? (cdr x) y))))
-
 (define (remove-duplicates items)
   (let loop ((items items) (result '()))
     (if (null? items)
@@ -1880,13 +1867,4 @@ USA.
        (loop (cdr items)
              (if (memq (car items) result)
                  result
-                 (cons (car items) result))))))
-
-(define (hash-table/modify! table key default modifier)
-  (hash-table/put! table key (modifier (hash-table/get table key default))))
-
-(define (map! procedure items)
-  (do ((items items (cdr items)))
-      ((null? items))
-    (set-car! items (procedure (car items))))
-  items)
\ No newline at end of file
+                 (cons (car items) result))))))
\ No newline at end of file