From 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:28 -0800
Subject: Import Upstream version 2d2

---
 alistab.scm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

(limited to 'alistab.scm')

diff --git a/alistab.scm b/alistab.scm
index 426a4e3..e51bd26 100644
--- a/alistab.scm
+++ b/alistab.scm
@@ -1,9 +1,9 @@
 ;;; "alistab.scm" database tables using association lists (assoc)
 ; Copyright 1994, 1997 Aubrey Jaffer
 ;
-;Permission to copy this software, to redistribute it, and to use it
-;for any purpose is granted, subject to the following restrictions and
-;understandings.
+;Permission to copy this software, to modify it, to redistribute it,
+;to distribute modified versions, and to use it for any purpose is
+;granted, subject to the following restrictions and understandings.
 ;
 ;1.  Any copy made of this software must include this copyright notice
 ;in full.
@@ -282,22 +282,23 @@
     (let ((row (assoc* ckey (handle->alist handle))))
       (and row (cdr row)))))
 
-(define (for-each-key handle operation match-key)
+(define (for-each-key handle operation primary-limit column-type-list match-keys)
   (assoc*-for-each operation
 		   '()
-		   match-key
+		   match-keys
 		   (handle->alist handle)))
 
-(define (map-key handle operation match-key)
+(define (map-key handle operation primary-limit column-type-list match-keys)
   (assoc*-map operation
 	      '()
-	      match-key
+	      match-keys
 	      (handle->alist handle)))
 
-(define (ordered-for-each-key handle operation match-key)
+(define (ordered-for-each-key handle operation
+			      primary-limit column-type-list match-keys)
   (sorted-assoc*-for-each operation
 			  '()
-			  match-key
+			  match-keys
 			  (handle->alist handle)))
 
 (define (supported-type? type)
@@ -338,9 +339,9 @@
 	   (set-handle-alist! handle
 			      (delete-assoc ckey (handle->alist handle)))))
 	((delete*)
-	 (lambda (handle match-key)
+	 (lambda (handle primary-limit column-type-list match-keys)
 	   (set-handle-alist! handle
-			      (delete-assoc* match-key
+			      (delete-assoc* match-keys
 					     (handle->alist handle)))))
 	((for-each-key) for-each-key)
 	((map-key) map-key)
-- 
cgit v1.2.3