anchor.diff:  
   
   (defun inject-flow (flow)
  -  (when-let ((app-instance (app)))
  -    (flet ((%inject-flow ()
  -             (with-slots (injected-flows) app-instance
  -               (push flow injected-flows))))
  -      (push-action app-instance #'%inject-flow))))
  +  (unless *appkit-instance*
  +    (error "Cannot inject a flow: appkit system is not started yet"))
  +  (flet ((%inject-flow ()
  +           (with-slots (injected-flows) *appkit-instance*
  +             (push flow injected-flows))))
  +    (push-action *appkit-instance* #'%inject-flow)))
   
   
   (define-event-handler on-framebuffer-change ((ev ge.host:framebuffer-size-change-event) width height)
  
positive.code: 
  
  (defmethod enabling-flow list ((this appkit-system))
    (>> (instantly ()
          (setf *appkit-instance* this))
        (ge.host:for-host ()
          (log/debug "Configuring host for appkit")
          (* (viewport-pixel-ratio) (ge.host:viewport-scale)))
        (ge.gx:for-graphics (pixel-ratio)
          (log/debug "Configuring graphics for appkit")
          (%initialize-graphics this pixel-ratio))
        (%app-configuration-flow this)
        (instantly ()
          (log/debug "Starting appkit loop")
  
negative.code:       `(progn
           (defclass ,name (appkit-system ,@classes)
             ,slots
             (:default-initargs :%appkit-depends-on ',depends-on ,@default-initargs)
             ,@std-opts)
           (defmethod %app-configuration-flow ((this ,name))
             (%app-update-flow this
  