1. evhan
  2. chicken-glfw

Commits

evhan  committed dd704ff

poll, wait, swap & window size callbacks must be foreign-safe

  • Participants
  • Parent commits 506f9b6
  • Branches master

Comments (0)

Files changed (1)

File glfw.scm

View file
     (foreign-lambda void glfwSetWindowPos integer integer))
   (define glfwIconifyWindow (foreign-lambda void glfwIconifyWindow ))
   (define glfwRestoreWindow (foreign-lambda void glfwRestoreWindow ))
-  (define glfwSwapBuffers (foreign-lambda void glfwSwapBuffers ))
+  (define glfwSwapBuffers (foreign-safe-lambda void glfwSwapBuffers))
   (define glfwSwapInterval (foreign-lambda void glfwSwapInterval integer))
   (define glfwGetWindowParam
     (foreign-lambda integer glfwGetWindowParam integer))
   (define glfwSetWindowSizeCallback
-    (foreign-lambda
+    (foreign-safe-lambda
       void
       glfwSetWindowSizeCallback
       (function void (integer integer))))
       void
       glfwGetDesktopMode
       (c-pointer GLFWvidmode)))
-  (define glfwPollEvents (foreign-lambda void glfwPollEvents ))
-  (define glfwWaitEvents (foreign-lambda void glfwWaitEvents ))
+  (define glfwPollEvents (foreign-safe-lambda void glfwPollEvents))
+  (define glfwWaitEvents (foreign-safe-lambda void glfwWaitEvents))
   (define glfwGetKey (foreign-lambda integer glfwGetKey integer))
   (define glfwGetMouseButton
     (foreign-lambda integer glfwGetMouseButton integer))