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