diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:28 -0800 |
| commit | 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (patch) | |
| tree | 1eb4f87abd38bea56e08335d939e8171d5e7bfc7 /alistab.scm | |
| parent | bd9733926076885e3417b74de76e4c9c7bc56254 (diff) | |
| download | slib-87b82b5822ca54228cfa6df29be3ad9d4bc47d16.tar.gz slib-87b82b5822ca54228cfa6df29be3ad9d4bc47d16.zip | |
Import Upstream version 2d2upstream/2d2
Diffstat (limited to 'alistab.scm')
| -rw-r--r-- | alistab.scm | 23 |
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) |