From fd0404483be11545ed7b881aa956af9f5c9af943 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Tue, 3 Sep 2024 03:29:39 +0900
Subject: Rename procedure from `inv?` to `unit-inv?` in (qklib infix rule-set)

---
 qklib/infix/rule-set.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/qklib/infix/rule-set.scm b/qklib/infix/rule-set.scm
index 70c3540..df80e71 100644
--- a/qklib/infix/rule-set.scm
+++ b/qklib/infix/rule-set.scm
@@ -126,7 +126,7 @@
       (make-unit value inv?)
       unit?
       (value unit-value)
-      (inv? inv))
+      (inv? unit-inv?))
 
     (define unit
       (case-lambda
-- 
cgit v1.2.3