From 5dece2275adb735bbe6b306f44f2d0fd00318ef6 Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Fri, 30 May 2025 12:37:28 +0300
Subject: [PATCH] maybe rewrite map-filter-tree with tree.scm's tree
 inversions?

They don't seem intuitive, need to mess around a bit to understand
them.
---
 sexc.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sexc.scm b/sexc.scm
index ad2ca86..6d3a659 100644
--- a/sexc.scm
+++ b/sexc.scm
@@ -4,6 +4,7 @@
   (string->symbol
    (string-translate (symbol->string sym) #\- #\_)))
 
+; Maybe rewrite with tree inversions?
 (define (map-filter-tree map-proc filter-proc tree)
   "Walk the tree, checking each element with filter-proc.
 If filter-proc returns #t: