diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-03-20 22:43:26 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-03-20 22:43:26 -0700 |
| commit | f38d01586474c741aa813f5dc99ae5eb4e718009 (patch) | |
| tree | 0e3956392991f42c61d8d146816f585911e3a71c /stdlib/compiler.tl | |
| parent | 132da9700cb9c6e4edcac8684cf50b61d00a5e8c (diff) | |
| download | txr-f38d01586474c741aa813f5dc99ae5eb4e718009.tar.gz txr-f38d01586474c741aa813f5dc99ae5eb4e718009.tar.bz2 txr-f38d01586474c741aa813f5dc99ae5eb4e718009.zip | |
compiler: recognize t as synonym for :warn.
* stdlib/compiler.tl (opt-controlled-diag): If a the compiler
option's value is t, treat it as :warn.
Diffstat (limited to 'stdlib/compiler.tl')
| -rw-r--r-- | stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index fcfa1d67..174f5b26 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -53,7 +53,7 @@ (defun opt-controlled-diag (optval . args) (caseq optval (:error (compile-error . args)) - (:warn (compile-warning . args)))) + ((t :warn) (compile-warning . args)))) (defstruct (frag oreg code : fvars ffuns pars) nil oreg |