summaryrefslogtreecommitdiffstats
path: root/alistab.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:28 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:28 -0800
commit87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (patch)
tree1eb4f87abd38bea56e08335d939e8171d5e7bfc7 /alistab.scm
parentbd9733926076885e3417b74de76e4c9c7bc56254 (diff)
downloadslib-87b82b5822ca54228cfa6df29be3ad9d4bc47d16.tar.gz
slib-87b82b5822ca54228cfa6df29be3ad9d4bc47d16.zip
Import Upstream version 2d2upstream/2d2
Diffstat (limited to 'alistab.scm')
-rw-r--r--alistab.scm23
1 files changed, 12 insertions, 11 deletions
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)