diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-17 08:53:17 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-17 08:53:17 -0700 |
| commit | 8e7bba1e12c8d5f583c958b9eac0a68c18bf1c9a (patch) | |
| tree | 272a3acc2a035078dcb3f5d26ac59dfd635e61dc | |
| parent | 0f7a74aa02bc9deb2ae269113e565a63b6f64bd2 (diff) | |
| download | txr-8e7bba1e12c8d5f583c958b9eac0a68c18bf1c9a.tar.gz txr-8e7bba1e12c8d5f583c958b9eac0a68c18bf1c9a.tar.bz2 txr-8e7bba1e12c8d5f583c958b9eac0a68c18bf1c9a.zip | |
compiler: replace invalid compound form message.
* share/txr/stdlib/compiler.tl (compiler compile): The message
will show (car form) followed by a colon, so the wording
should refer to that object rather than the entire form.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index e10bf1a7..4efbe26e 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -145,7 +145,7 @@ (t (compile-error form "special op ~s not handled yet" sym)))) ((bindable sym) me.(comp-call env sym (cdr form))) - (t (compile-error form "invalid compound form"))))))) + (t (compile-error form "invalid operator"))))))) (defmeth compiler comp-atom (me form) (cond |