From d57c114d4076644450235bc6a171553c7aca6443 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Nov 1999 05:36:14 +0000
Subject: [PATCH] Implement SPLIT-LIST.

---
 v7/src/edwin/utils.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 1d54d1efa..7ddca69f3 100644
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: utils.scm,v 1.45 1999/01/02 06:11:34 cph Exp $
+;;; $Id: utils.scm,v 1.46 1999/11/05 05:36:14 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -297,6 +297,14 @@
 	(begin (procedure i)
 	       (loop (1+ i)))))
   (loop 0))
+
+(define (split-list elements predicate)
+  (let loop ((elements elements) (satisfied '()) (unsatisfied '()))
+    (if (pair? elements)
+	(if (predicate (car elements))
+	    (loop (cdr elements) (cons (car elements) satisfied) unsatisfied)
+	    (loop (cdr elements) satisfied (cons (car elements) unsatisfied)))
+	(values satisfied unsatisfied))))
 
 (define make-strong-eq-hash-table
   (strong-hash-table/constructor eq-hash-mod eq? #t))
-- 
2.25.1