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 | e7f33c96e55662f61dfd23f9eaf7c06722730ae7 (patch) | |
| tree | 272a3acc2a035078dcb3f5d26ac59dfd635e61dc | |
| parent | fc14208059980363cf022460e7701f49d526b8b8 (diff) | |
| download | txr-e7f33c96e55662f61dfd23f9eaf7c06722730ae7.tar.gz txr-e7f33c96e55662f61dfd23f9eaf7c06722730ae7.tar.bz2 txr-e7f33c96e55662f61dfd23f9eaf7c06722730ae7.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 |