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