diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-09-12 00:43:33 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-09-12 00:43:33 +0900 |
| commit | fed45b6dd4d57e5436e29d9c392c439dd9905e72 (patch) | |
| tree | b10ae140a76fabe4c779af0c180b392a72187e9b /qklib | |
| parent | 97342267831a19482cdbaf2b0dcb581301456378 (diff) | |
Fix infix->prefix procedures
Diffstat (limited to 'qklib')
| -rw-r--r-- | qklib/infix.scm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/qklib/infix.scm b/qklib/infix.scm index ee58df5..06aab6b 100644 --- a/qklib/infix.scm +++ b/qklib/infix.scm @@ -78,7 +78,12 @@ (list (->prefix left left-op))) (if (and (pair? left) (null? (cdr left))) - (list (car left)) + (if (and not-binary-only? + (operator-left? op) + (pair? (car left)) + (eqv? (operator-symbol op) (car (car left)))) + (cdr (car left)) + (list (car left))) (fail (->infix left op-sym right)))) ,@(if (operator? right-op) (if (and not-binary-only? @@ -88,7 +93,12 @@ (list (->prefix right right-op))) (if (and (pair? right) (null? (cdr right))) - (list (car right)) + (if (and not-binary-only? + (operator-right? op) + (pair? (car right)) + (eqv? (operator-symbol op) (car (car right)))) + (cdr (car right)) + (list (car right))) (fail (->infix left op-sym right))))))) (if (operator-right? op) (let-values (((lst op+rest) (break! (cute eqv? (operator-symbol op) <>) expr))) |