From a1b69f30b1b27b63f2873af5dd2b5d3019e2b799 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9s=20Cuervo?= <andrescuervor@gmail.com>
Date: Mon, 11 Dec 2023 16:12:59 -0500
Subject: Fix baseCode overwriting

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

(limited to 'virtual-programs')

diff --git a/virtual-programs/editor.folk b/virtual-programs/editor.folk
index 41629c6c..47e19c56 100644
--- a/virtual-programs/editor.folk
+++ b/virtual-programs/editor.folk
@@ -6,7 +6,11 @@ When /page/ is a keyboard with path /kbPath/ & /page/ has region /r/ {
   set id "$page$kbPath"
   Wish $page is outlined gray
   Claim $id has region [region move $r up 450px]
-  Commit "code$kbPath" { Claim $id has program code $baseCode }
+  When /nobody/ claims $id has program code /c/ {
+    Commit "code$kbPath" {
+      Claim $id has program code $baseCode 
+    }
+  }
 }
 
 proc updateCursor {oldCursor updates} {
-- 
cgit v1.2.3