From aef949dfca03561f103a2899b8d23c198ad080e1 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Tue, 3 Sep 2024 13:18:21 +0900
Subject: Remove prefix-flip? and add prefix-fix? in (qklib infix rule-set)

---
 qklib/infix/rule-set.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/qklib/infix/rule-set.scm b/qklib/infix/rule-set.scm
index df80e71..f193055 100644
--- a/qklib/infix/rule-set.scm
+++ b/qklib/infix/rule-set.scm
@@ -35,7 +35,7 @@
           prefix
           prefix?
           prefix-symbol
-          prefix-flip?)
+          prefix-fix?)
   (import (scheme base)
           (scheme case-lambda)
           (only (srfi 128) make-eqv-comparator))
@@ -110,17 +110,17 @@
             (else (operator-symbol op))))
 
     (define-record-type <prefix>
-      (make-prefix symbol flip?)
+      (make-prefix symbol fix?)
       prefix?
       (symbol prefix-symbol)
-      (flip? prefix-flip?))
+      (fix? prefix-fix?))
 
     (define prefix
       (case-lambda
         ((symbol)
          (prefix symbol #f))
-        ((symbol flip?)
-         (make-prefix symbol flip?))))
+        ((symbol fix?)
+         (make-prefix symbol fix?))))
 
     (define-record-type <unit>
       (make-unit value inv?)
-- 
cgit v1.2.3