From 2ff3339146b1212e26277980d5afd891e2ad1982 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Wed, 4 Sep 2024 00:53:08 +0900 Subject: Fix parenthesis processing of `prefix->infix` procedure --- qklib/infix.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/qklib/infix.scm b/qklib/infix.scm index ce3d952..88ebb18 100644 --- a/qklib/infix.scm +++ b/qklib/infix.scm @@ -144,7 +144,7 @@ (let ((p (operator-precedence op)) (op-sym (operator-symbol op))) (define (select x xp) - (if (<= p xp) x (list x))) + (if (< p xp) x (list x))) (cond ((null? args) (cond ((and (not (operator-unit-inv? op)) (operator-unit op)) -- cgit v1.2.3