diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-04-06 20:59:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-04-06 20:59:52 -0700 |
| commit | 3aa1225433518f1cda525225cb3f29ebf73b38d9 (patch) | |
| tree | 490d959dd56db00e65e6ab41259d2db57467f55e | |
| parent | cb8e132c3b781a14279881a3dd700c6e2e641eec (diff) | |
| download | txr-3aa1225433518f1cda525225cb3f29ebf73b38d9.tar.gz txr-3aa1225433518f1cda525225cb3f29ebf73b38d9.tar.bz2 txr-3aa1225433518f1cda525225cb3f29ebf73b38d9.zip | |
infix: remove unnecessary rewrite rule
* stdlib/infix.tl (parse-infix): We don't need to
recognize consecutive [...][...], because the
rule which reduces any element followed by [...]
does the job.
| -rw-r--r-- | stdlib/infix.tl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/stdlib/infix.tl b/stdlib/infix.tl index 3d83a6a1..5127f60e 100644 --- a/stdlib/infix.tl +++ b/stdlib/infix.tl @@ -136,8 +136,6 @@ (set exp rest)) ((@(@o [ifx-ops]) . @nil) (infix-error oexp "operator ~s needs left operand" o.sym)) - (([. @args1] [. @args2] . @rest) - (set exp ^([[,*args1] ,*args2] ,*rest))) ((@op [. @args] . @rest) (set exp ^([,op ,*args] ,*rest))) ((@op (@arg . @args) . @rest) |