diff options
| -rw-r--r-- | src/Gtk/State.icl | 3 |
1 files changed, 2 insertions, 1 deletions
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 -> () |