From ef169a36a0d65a53b5e380a75938980e01b55989 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 20 Mar 2023 22:43:26 -0700
Subject: 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.
---
 stdlib/compiler.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3