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 | ef169a36a0d65a53b5e380a75938980e01b55989 (patch) | |
| tree | 0e3956392991f42c61d8d146816f585911e3a71c /stdlib | |
| parent | 6afa38a542e99165defe54e5d303abb51c65167c (diff) | |
| download | txr-ef169a36a0d65a53b5e380a75938980e01b55989.tar.gz txr-ef169a36a0d65a53b5e380a75938980e01b55989.tar.bz2 txr-ef169a36a0d65a53b5e380a75938980e01b55989.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')
| -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 |