From e324cd3975042e9ee698c5953c84211c0a8d43b1 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 8 Jun 2011 18:23:31 +0000 Subject: [PATCH] Omit some vestiges in nntp.scm. --- src/edwin/nntp.scm | 24 +----------------------- 1 file changed, 1 insertion(+), 23 deletions(-) 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 -- 2.25.1