From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 13 Oct 2023 17:21:51 +0000 (-0700)
Subject: glfw: adding glfw-yield
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=ab69a4f171ca48d6d53d81cfd52a42108da1c08b

glfw: adding glfw-yield
---

diff --git a/extra/glfw/glfw.factor b/extra/glfw/glfw.factor
new file mode 100644
index 0000000000..098fc4a44f
--- /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 ;