From 60ce6b4728250eedbad0f0ecdf9d2359cc993585 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 3 May 2024 00:18:36 -0400
Subject: Gpu,display: More hack laptop fixes so virtual programs work

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

(limited to 'virtual-programs')

diff --git a/virtual-programs/display.folk b/virtual-programs/display.folk
index 3abb8685..458e847c 100644
--- a/virtual-programs/display.folk
+++ b/virtual-programs/display.folk
@@ -11,6 +11,10 @@ proc Start-display-process {code} {
         # a claim so we can run the rest of display.folk before
         # getting caught in its infinite loop.
         Claim "fake-display-process" has program code $code
+
+        When the GPU is ready & /someone/ wishes program code /co/ runs on "display" {
+            eval $co
+        }
     } else {
         uplevel [list Start process "display" $code]
     }
@@ -104,6 +108,8 @@ Start-display-process {
         }
     }
 
+    Claim the GPU is ready
+
     while true {
         set ::displayList [dict create] ;# Keys are layer numbers; values are lists of commands
         Step
-- 
cgit v1.2.3