diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-09-12 00:51:32 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-09-12 00:51:32 +0900 |
| commit | 156efe8b7792f73076933f0d3db50ab67bcfb383 (patch) | |
| tree | 5a45fb28cb91dab04f62f1e8dbbfbbae366c6761 | |
| parent | fed45b6dd4d57e5436e29d9c392c439dd9905e72 (diff) | |
Add assoc config `none`
| -rw-r--r-- | qklib/infix/rule-set.scm | 5 |
1 files 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) |