glfw: adding glfw-yield

diff --git a/extra/glfw/glfw.factor b/extra/glfw/glfw.factor
new file mode 100644 (file)
index 0000000..098fc4a
--- /dev/null
+++ b/extra/glfw/glfw.factor
@@ -0,0 +1,10 @@
+! Copyright (C) 2023 John Benediktsson.
+! See https://factorcode.org/license.txt for BSD license.
+USING: glfw.ffi threads ;
+IN: glfw
+
+: glfw-yield ( -- )
+    glfwGetCurrentContext
+    f glfwMakeContextCurrent
+    yield
+    glfwMakeContextCurrent ;