remove old files

1 files changed, 0 insertions, 96 deletions

diff --git a/alist-impl.scm b/alist-impl.scm
deleted file mode 100644
index 9ce3c35..0000000
--- a/alist-impl.scm
+++ /dev/null
@@ -1,96 +0,0 @@
-(define (make-alist-dtd key=)
-
-  (define (alist? l)
-    (and (list? l)
-         (or (null? l)
-             (pair? (car l)))))
-
-  (define (alist-map! proc alist)
-    (map
-      (lambda (e)
-        (define key (car e))
-        (define value (cdr e))
-        (cons key (proc key value)))
-      alist))
-
-  (define (alist-filter pred alist)
-    (filter
-      (lambda (e)
-        (pred (car e) (cdr e)))
-      alist))
-
-  (define (alist-filter! pred alist)
-    (filter!
-      (lambda (e)
-        (pred (car e) (cdr e)))
-      alist))
-
-  (define (alist-delete dtd key alist)
-    (filter
-     (lambda (entry)
-       (not (key= (car entry) key)))
-     alist))
-
-  (define (alist-delete! dtd key alist)
-    (filter!
-     (lambda (entry)
-       (not (key= (car entry) key)))
-     alist))
-
-  (define (alist-search* dtd alist-delete-proc alist key failure success)
-    (define (handle-success pair)
-      (define old-key (car pair))
-      (define old-value (cdr pair))
-      (define (update new-key new-value obj)
-        (cond
-          ((and (eq? old-key
-                     new-key)
-                (eq? old-value
-                     new-value))
-           (values alist obj))
-          (else
-            (let ((new-list
-                    (alist-cons
-                      new-key new-value
-                      (alist-delete-proc old-key alist))))
-              (values new-list obj)))))
-      (define (remove obj)
-        (values (alist-delete old-key alist) obj))
-      (success old-key old-value update remove))
-
-    (define (handle-failure)
-      (define (insert value obj)
-        (values (alist-cons key value alist)
-                obj))
-      (define (ignore obj)
-        (values alist obj))
-      (failure insert ignore))
-    (cond
-      ((assoc key alist) => handle-success)
-      (else (handle-failure))))
-
-  (define (alist-search dtd alist key failure success)
-    (alist-search* dtd alist-delete alist key failure success))
-
-  (define (alist-search! dtd alist key failure success)
-    (alist-search* dtd alist-delete! alist key failure success))
-
-  (define (alist-size alist)
-    (length alist))
-
-  (define (alist-foreach proc alist)
-    (define (proc* e)
-      (proc (car e) (cdr e)))
-    (for-each proc* alist))
-
-  (define (alist->alist alist)
-    alist)
-
-  (-dictionary!
-    'dictionary? alist?
-    'dict-map! alist-map!
-    'dict-filter! alist-filter!
-    'dict-search! alist-search!
-    'dict-size alist-size
-    'dict-for-each alist-foreach
-    'dict->alist alist->alist))