From: Joe Marshall <eval.apply@gmail.com>
Date: Mon, 9 Aug 2010 19:55:47 +0000 (-0700)
Subject: Declare IGNORABLE NB to silence warning.
X-Git-Tag: 20101212-Gtk~109
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4482288c5742b4ab470501564c325c6f79eb7dc4;p=mit-scheme.git

Declare IGNORABLE NB to silence warning.
---

diff --git a/src/runtime/cpress.scm b/src/runtime/cpress.scm
index ce5d98c22..a7a97bcbd 100644
--- 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)))