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