+ pez_setglobal

1 files changed, 9 insertions, 0 deletions

diff --git a/pez.c b/pez.c
index 52744ad..f341c78 100644
--- a/pez.c
+++ b/pez.c
@@ -4540,6 +4540,15 @@ pez_pushuserobj(PezContext *cx, const PezUserType *typeid, void *data)
 }
 
 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)
 {
     return isvoid(*iget(cx, idx));