diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-09-03 13:18:21 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-09-03 13:18:21 +0900 |
commit | aef949dfca03561f103a2899b8d23c198ad080e1 (patch) | |
tree | 2b079c1df639fa98ace2e028265256043819f8d5 | |
parent | 16ebde37668f976a8e24e8b28b172965b670c592 (diff) |
Remove prefix-flip? and add prefix-fix? in (qklib infix rule-set)
-rw-r--r-- | qklib/infix/rule-set.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/qklib/infix/rule-set.scm b/qklib/infix/rule-set.scm index df80e71..f193055 100644 --- a/qklib/infix/rule-set.scm +++ b/qklib/infix/rule-set.scm @@ -35,7 +35,7 @@ prefix prefix? prefix-symbol - prefix-flip?) + prefix-fix?) (import (scheme base) (scheme case-lambda) (only (srfi 128) make-eqv-comparator)) @@ -110,17 +110,17 @@ (else (operator-symbol op)))) (define-record-type <prefix> - (make-prefix symbol flip?) + (make-prefix symbol fix?) prefix? (symbol prefix-symbol) - (flip? prefix-flip?)) + (fix? prefix-fix?)) (define prefix (case-lambda ((symbol) (prefix symbol #f)) - ((symbol flip?) - (make-prefix symbol flip?)))) + ((symbol fix?) + (make-prefix symbol fix?)))) (define-record-type <unit> (make-unit value inv?) |