From 66683792a4a2e20894e0c65cfd8e4120b23bb4ef Mon Sep 17 00:00:00 2001
From: Mike Smith <msmith@FreeBSD.org>
Date: Wed, 4 Nov 1998 03:41:09 +0000
Subject: [PATCH] Use a smaller default dictionary to waste less space.

---
 sys/boot/common/interp_forth.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sys/boot/common/interp_forth.c b/sys/boot/common/interp_forth.c
index 0e0c616229f..cdc71eac084 100644
--- a/sys/boot/common/interp_forth.c
+++ b/sys/boot/common/interp_forth.c
@@ -23,7 +23,7 @@
  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  * SUCH DAMAGE.
  *
- *	$Id$
+ *	$Id: interp_forth.c,v 1.1 1998/11/04 00:29:01 msmith Exp $
  */
 
 #include <stand.h>
@@ -90,7 +90,7 @@ bf_init(void)
 {
     struct bootblk_command	**cmdp;
     
-    ficlInitSystem(10000);	/* XXX what's the argument here? */
+    ficlInitSystem(3000);	/* Default dictionary ~2000 cells */
     bf_vm = ficlNewVM();
 
     /* make all commands appear as Forth words */