diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-09-04 00:53:08 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-09-04 00:53:08 +0900 |
| commit | 2ff3339146b1212e26277980d5afd891e2ad1982 (patch) | |
| tree | 2a2ae513ccbaabf4afda3b85acf5552f95d1279b | |
| parent | 0b5bb6dd3f81e12798a13deff22d74528a545211 (diff) | |
Fix parenthesis processing of `prefix->infix` procedure
| -rw-r--r-- | qklib/infix.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |