From 156efe8b7792f73076933f0d3db50ab67bcfb383 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Thu, 12 Sep 2024 00:51:32 +0900 Subject: Add assoc config `none` --- qklib/infix/rule-set.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/qklib/infix/rule-set.scm b/qklib/infix/rule-set.scm index f867786..122aa56 100644 --- a/qklib/infix/rule-set.scm +++ b/qklib/infix/rule-set.scm @@ -98,10 +98,11 @@ ((symbol precedence assoc unit) (operator symbol precedence assoc unit #f)) ((symbol precedence assoc unit prefix) - (unless (or (eq? 'left assoc) + (unless (or (eq? 'none assoc) + (eq? 'left assoc) (eq? 'right assoc) (eq? 'both assoc)) - (error "operator: The 3rd argument must be 'left or 'right or 'both" assoc)) + (error "operator: The 3rd argument must be 'none, 'left, 'right or 'both" assoc)) (make-operator symbol precedence assoc unit prefix)))) (define (operator-left? x) -- cgit v1.2.3