From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 8 Jun 2011 18:23:31 +0000 (+0000)
Subject: Omit some vestiges in nntp.scm.
X-Git-Tag: 20110609-Gtk~1^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e324cd3975042e9ee698c5953c84211c0a8d43b1;p=mit-scheme.git

Omit some vestiges in nntp.scm.
---

diff --git a/src/edwin/nntp.scm b/src/edwin/nntp.scm
index 3dc727dc1..74a039909 100644
--- 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