From c2021ab74da2048fc330c8185d98f2c9331c8149 Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Mon, 16 Jun 2025 11:57:53 +0200
Subject: + pez_setglobal

---
 pez.c | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'pez.c')

diff --git a/pez.c b/pez.c
index 52744ad..f341c78 100644
--- a/pez.c
+++ b/pez.c
@@ -4539,6 +4539,15 @@ pez_pushuserobj(PezContext *cx, const PezUserType *typeid, void *data)
     return push(cx, o);
 }
 
+bool
+pez_setglobal(PezContext *cx, const char *name)
+{
+    Val k, v;
+    TRY(box_str(cx, &k, name, strlen(name)));
+    v = pop(cx);
+    return putglobal(cx, k, v);
+}
+
 bool
 pez_isvoid(PezContext *cx, int idx)
 {
-- 
cgit v1.2.3