anchor.diff:  
   (defun make-host-application (cont)
     (make-instance 'host-application
  -                 :continuation cont
  +                 :init-continuation cont
                    :opengl-version (property '(:host :opengl-version) '(3 3))
                    :resizable (property '(:host :viewport-resizable) nil)
                    :decorated (property '(:host :viewport-decorated) t)
  
positive.code:     (ge.ng:>> (call-next-method)
                (ge.ng:%> ()
                  (setf host-application (make-host-application #'ge.ng:continue-flow))
                  (bodge-host:open-window (host-application this))
                  (log:debug "Host system initialized"))
                (instantly ()
                  (setf shared (bodge-host:make-shared-rendering-context host-application))))))
  
  
  (defmethod disabling-flow ((this host-system))
    (ge.ng:>> (instantly ()
                (bodge-host:destroy-shared-rendering-context (shared-application this))
                (bodge-host:close-window (host-application this))
                (log:debug "Host system offline"))
              (call-next-method)))
  
  
  (defun bind-rendering-context (&key (main t))
  
negative.code: (define-constant +expected-dpi+ 96)
  
  (defclass host-application (bodge-host:window)
    ((init-continuation :initarg :init-continuation)
     (destroy-continuation :initarg :destroy-continuation)))
  
  
  (defun set-destroy-continuation (host-application cont)
    (with-slots (destroy-continuation) host-application
      (setf destroy-continuation cont)))
  
  
  (defclass host-system (enableable dispatching generic-system)
    ((host-application :initform nil)
  