From 7a8ac50d0a2be8d12a33c8942e50b12d68836cf2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 16 Dec 2021 15:38:21 +0530
Subject: Rename away delete from (srfi srfi-1).

delete from (srfi srfi-1) somehow interferes with the delete verb of
map-alist. It is not clear why.

* dump/utils.scm (dump): Rename delete to srfi:delete while importing.
---
 dump/utils.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/dump/utils.scm b/dump/utils.scm
index b5c954f..a6292ff 100644
--- a/dump/utils.scm
+++ b/dump/utils.scm
@@ -1,5 +1,9 @@
 (define-module (dump utils)
-  #:use-module (srfi srfi-1)
+  ;; Rename delete to srfi:delete since it somehow interferes with the
+  ;; delete verb of map-alist.
+  #:use-module ((srfi srfi-1) #:renamer (lambda (sym)
+                                          (if (eq? sym 'delete)
+                                              'srfi:delete sym)))
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
   #:export (map-alist))
-- 
cgit v1.2.3