                   font-texture-height
                   font-texture-image]} (get @font-textures (font-key @normal-font))
           _                  (log/info "screen size" screen-width "x" screen-height)
-          _                  (init-display title screen-width screen-height icon-paths gl-lock close-ref)
+          _                  (init-display title screen-width screen-height icon-paths gl-lock)
 
           font-texture       (with-gl-context gl-lock (texture-id font-texture-image))
           _                  (swap! font-textures update (font-key @normal-font) (fn [m] (assoc m :font-texture font-texture)))

                                                   (make-font else-font Font/PLAIN font-size)))
          ;; false if Display is destoyed
          gl-lock            (atom true)
          ; Used to request Display destruction.
          close-ref          (ref false)
          {:keys [screen-width
                  screen-height
                  character-width

    [LWJGLUtil/PLATFORM_WINDOWS true]
      (System/setProperty "org.lwjgl.librarypath", (.getAbsolutePath (File. "natives/windows/x86_64"))))))

(defn- init-display [title screen-width screen-height icon-paths gl-lock]
  (let [pixel-format       (PixelFormat.)
        context-attributes (ContextAttribs. 3 0)
        icon-array         (when icon-paths
