diff options
Diffstat (limited to 'qklib')
-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)) |