From dbaab88cd56c0247c6247b8d38f2ca56b79eb595 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Thu, 26 Oct 2023 08:05:26 -0400
Subject: display: Handle if this doesn't exist

---
 virtual-programs/display.folk | 1 +
 1 file changed, 1 insertion(+)

(limited to 'virtual-programs')

diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk
index 15df565d..2853c065 100644
--- a/virtual-programs/display.folk
+++ b/virtual-programs/display.folk
@@ -147,6 +147,7 @@ namespace eval ::Display {
     # for backward compatibility now.
     proc warnDeprecated {} {
         upvar 2 this this
+        if {![info exists this]} {set this "<unknown>"}
         set func [lindex [info level -1] 0]
         set w "$func was deprecated in Oct 2023; use GPU wishes/shaders"
         Claim $this has warning $w with info $w
-- 
cgit v1.2.3