From 09f34fb35201affe4cd40d674456023504b5b15e Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Tue, 3 Sep 2024 01:46:26 +0900 Subject: Modify `operator` procedure interface in (qklib infix rule-set) --- qklib/infix/rule-set.scm | 14 +++++++------- 1 file 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 - (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 (make-prefix symbol flip?) -- cgit v1.2.3