From 172d403016f959549c7de8a9e257c6324af3b9e9 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Thu, 12 Sep 2024 17:24:15 +0900
Subject: Fix prefix procedure interface

---
 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 96f08cc..1189bca 100644
--- a/qklib/infix/rule-set.scm
+++ b/qklib/infix/rule-set.scm
@@ -157,7 +157,7 @@
         ((binary-only?)
          (make-prefix binary-only? #f #f))
         ((binary-only? symbol)
-         (make-prefix binary-only? symbol #t))))
+         (make-prefix binary-only?  #t symbol))))
 
     (define-record-type <identity>
       (make-identity value inv? unary?)
-- 
cgit v1.2.3