From a9921675ba2946f5f318084b71614afcde172687 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 9 Apr 2023 20:07:45 +0200
Subject: [PATCH] Remove unused functional update procedure.

---
 src/util-dict.scm | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/src/util-dict.scm b/src/util-dict.scm
index 72443d7..5ac4779 100644
--- a/src/util-dict.scm
+++ b/src/util-dict.scm
@@ -46,8 +46,6 @@
   ldict-filter
   ldict-reduce
   
-  ldict-update
-  
   ldict-tests!
   )
 
@@ -201,11 +199,6 @@
 	 (loop (cdr pairs)
 	       (proc acc (caar pairs) (cdar pairs))))))
 
- ;; Functional update
- (define (dict-update d k proc . dfls)
-   (dict-set d k
-	     (proc (apply dict-ref d k dfls))))
-
  ;; Performs self-tests of the dictionary module.
  (define (ldict-tests!)
    (run-tests