Declare IGNORABLE NB to silence warning.

diff --git a/src/runtime/cpress.scm b/src/runtime/cpress.scm
index ce5d98c226fd0c66b9b2a38a1aa6afab0bf0d0c3..a7a97bcbd619049e8d2c3eedcfcae7b74c055f8a 100644 (file)
--- a/src/runtime/cpress.scm
+++ b/src/runtime/cpress.scm
@@ -553,6 +553,7 @@ USA.
   ;; If necessary, invalidate old commands until this is true.  If the
   ;; buffer size is optimal, this is never necessary, because the
   ;; buffer is big enough to hold all of the commands in the window.
+  (declare (ignorable nb))
   (if (and (not buffer-size-optimal?)
           oldest-node)
       (let ((end (bb-end byte-buffer)))