diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2025-04-05 00:43:57 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2025-04-05 00:43:57 -0700 |
| commit | b881879fa26e89698ecd1967ac83d903201dffda (patch) | |
| tree | 326ae0460af29ca6ab7b618bcc50e19c4007ba5c | |
| parent | 24b2352dcc27e6215c7b837db2bcdeed8847e1ef (diff) | |
| download | txr-b881879fa26e89698ecd1967ac83d903201dffda.tar.gz txr-b881879fa26e89698ecd1967ac83d903201dffda.tar.bz2 txr-b881879fa26e89698ecd1967ac83d903201dffda.zip | |
infix: whitespace fix.
* stdlib/infix.tl (infix-error): Remove
trailing whitespace.
| -rw-r--r-- | stdlib/infix.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/infix.tl b/stdlib/infix.tl index d6996bad..e1e801bb 100644 --- a/stdlib/infix.tl +++ b/stdlib/infix.tl @@ -88,7 +88,7 @@ (new (ifx-oper 60 '--) arity :postfix assoc :left lispsym 'pdec) (defun infix-error (exp fmt . args) - (let ((loc (source-loc-str exp))) + (let ((loc (source-loc-str exp))) (let ((msg (fmt `@loc: infix: @fmt` . args))) (when (and sys:*load-recursive* (null (find-frame 'error 'catch-frame))) |