diff options
| -rw-r--r-- | qklib/infix/rule-set.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/qklib/infix/rule-set.scm b/qklib/infix/rule-set.scm index e0da031..0c83d8d 100644 --- a/qklib/infix/rule-set.scm +++ b/qklib/infix/rule-set.scm @@ -81,13 +81,13 @@ (hashmap-ref/default (rule-set-prefix-hashmap rule-set) key #f)) (define-record-type <operator> - (make-operator symbol precedence left? prefix unit) + (make-operator symbol precedence left? unit prefix) operator? (symbol operator-symbol) (precedence operator-precedence) (left? operator-left?) - (prefix operator-prefix) - (unit operator-unit)) + (unit operator-unit) + (prefix operator-prefix)) (define operator (case-lambda @@ -97,13 +97,13 @@ (operator symbol precedence 'left)) ((symbol precedence left-or-right) (operator symbol precedence left-or-right #f)) - ((symbol precedence left-or-right prefix) - (operator symbol precedence left-or-right prefix #f)) - ((symbol precedence left-or-right prefix unit) + ((symbol precedence left-or-right unit) + (operator symbol precedence left-or-right unit #f)) + ((symbol precedence left-or-right unit prefix) (unless (or (eq? 'left left-or-right) (eq? 'right left-or-right)) (error "operator: The 3rd argument must be 'left or 'right" left-or-right)) - (make-operator symbol precedence (eq? 'left left-or-right) prefix unit)))) + (make-operator symbol precedence (eq? 'left left-or-right) unit prefix)))) (define-record-type <prefix> (make-prefix symbol flip?) |