From 0b5bb6dd3f81e12798a13deff22d74528a545211 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Wed, 4 Sep 2024 00:37:27 +0900
Subject: Support unary operator

---
 qklib/infix/rule-set.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'qklib/infix')

diff --git a/qklib/infix/rule-set.scm b/qklib/infix/rule-set.scm
index f193055..5d8908a 100644
--- a/qklib/infix/rule-set.scm
+++ b/qklib/infix/rule-set.scm
@@ -31,6 +31,7 @@
           unit?
           unit-value
           unit-inv?
+          unit-unary?
 
           prefix
           prefix?
@@ -123,12 +124,14 @@
          (make-prefix symbol fix?))))
 
     (define-record-type <unit>
-      (make-unit value inv?)
+      (make-unit value inv? unary?)
       unit?
       (value unit-value)
-      (inv? unit-inv?))
+      (inv? unit-inv?)
+      (unary? unit-unary?))
 
     (define unit
       (case-lambda
-        ((value) (make-unit value #f))
-        ((value inv?) (make-unit value inv?))))))
+        ((value) (unit value #f))
+        ((value inv?) (unit value inv? #f))
+        ((value inv? unary?) (make-unit value inv? unary?))))))
-- 
cgit v1.2.3