From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Nov 1999 05:38:15 +0000 (+0000)
Subject: SPLIT-LIST now implemented in "utils.scm".
X-Git-Tag: 20090517-FFI~4423
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=14ecdb7cf876cccf96ce7fd7f892b19f36fbaad9;p=mit-scheme.git

SPLIT-LIST now implemented in "utils.scm".
---

diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm
index 9dd88d253..dd7fe4710 100644
--- a/v7/src/edwin/snr.scm
+++ b/v7/src/edwin/snr.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: snr.scm,v 1.52 1999/08/20 20:35:53 cph Exp $
+;;; $Id: snr.scm,v 1.53 1999/11/05 05:38:15 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-1999 Massachusetts Institute of Technology
 ;;;
@@ -3678,15 +3678,6 @@ With prefix arg, replaces the file with the list information."
 		  (lambda () 'LESS)
 		  (lambda () 'GREATER)))
 
-(define (split-list headers predicate)
-  (let loop ((headers headers) (satisfied '()) (unsatisfied '()))
-    (cond ((null? headers)
-	   (values satisfied unsatisfied))
-	  ((predicate (car headers))
-	   (loop (cdr headers) (cons (car headers) satisfied) unsatisfied))
-	  (else
-	   (loop (cdr headers) satisfied (cons (car headers) unsatisfied))))))
-
 (define (prefix-matcher prefix)
   (let ((plen (string-length prefix)))
     (lambda (x y)