Remove prefix-flip? and add prefix-fix? in (qklib infix rule-set)

1 files 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?)