diff options
-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?) |