buffer(buffer-source): Use proper destructor.

atlas-engineer · May 31, 2023 · 791b730 · 791b730
1 parent c71544c
commit 791b730
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/source/buffer.lisp b/source/buffer.lisp
@@ -1313,9 +1313,8 @@ proceeding."
                                              "Set current BUFFER for the active window."
                                              (set-current-buffer buffer :focus nil)))
    (prompter:destructor (let ((buffer (current-buffer)))
-                          (lambda (prompter source)
-                            (declare (ignore source))
-                            (unless (or (prompter:returned-p prompter)
+                          (lambda (source)
+                            (unless (or (prompter:returned-p (prompter:prompter source))
                                         (eq buffer (current-buffer)))
                               (set-current-buffer buffer))))))
   (:export-class-name-p t)