From 49dc2a8d465e2a11c74da70ce8912795ddd2c2aa Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 21 Oct 2019 22:25:36 +0200
Subject: Fix accWorld

---
 src/Gtk/State.icl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Gtk')

diff --git a/src/Gtk/State.icl b/src/Gtk/State.icl
index 6adaf9c..ff97b40 100644
--- a/src/Gtk/State.icl
+++ b/src/Gtk/State.icl
@@ -64,7 +64,8 @@ accWorld f = state \st
 
 voidToWorld :: !() -> *World
 voidToWorld _ = code {
-	no_op
+	fill_a 0 1
+	pop_a 1
 }
 
 worldToVoid :: !*World -> ()
-- 
cgit v1.2.3