anchor.diff:             (ps:lisp input))))
     (update-prompt-input prompt-buffer input))
   
  +(defun wait-on-prompt-buffer (prompt-buffer)
  +  "Block and return PROMPT-BUFFER results."
  +  (when (prompt-buffer-p prompt-buffer)
  +    (calispel:fair-alt
  +      ((calispel:? (prompter:result-channel prompt-buffer) results)
  +       (hide-prompt-buffer prompt-buffer)
  +       results)
  +      ((calispel:? (prompter:interrupt-channel prompt-buffer))
  +       (hide-prompt-buffer prompt-buffer)
  +       (error 'nyxt-prompt-buffer-canceled)))))
  +
   (export-always 'prompt)
   (sera:eval-always
     (define-function prompt (append
  
positive.code:   :sources (list (make-instance 'prompter:source :filter #'my-suggestion-filter)))
  
  See the documentation of `prompt-buffer' to know more about the options."
      (let ((result-channel (make-channel))
            (interrupt-channel (make-channel))
            (parent-thread-prompt-buffer nil))
        (ffi-within-renderer-thread
         *browser*
         (lambda ()
  
negative.code:             :sources (list (make-instance 'resume-prompt-source)))))
      (when old-prompt
        (prompter:resume old-prompt)
        (show-prompt-buffer old-prompt)
        (wait-on-prompt-buffer old-prompt))))
  