(define *internal-key-callback* #f)
  (define-external (internal_key_callback_hook (c-pointer window) (integer key)
                                               (integer scancode) (integer action)
                                               (integer mods))
                   void
                   (*internal-key-callback* window key scancode action mods))

  (define glfwSetKeyCallback*
    (foreign-lambda*
      (function
        void
        ((c-pointer (struct "GLFWwindow")) integer integer integer integer))
      (((c-pointer (struct "GLFWwindow")) a0)
       ((function
          void
          ((c-pointer (struct "GLFWwindow"))
           integer
           integer
           integer
           integer))
        a1))
      "return(glfwSetKeyCallback(a0 , a1));"))

  (define (glfwSetKeyCallback window callback)
    (set! *internal-key-callback* callback)
    (glfwSetKeyCallback* window (location internal_key_callback_hook)))