From cd21ff0d3ccfbec62fe6af95e6656fe9c38f8254 Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Mon, 16 Feb 2015 02:01:56 -0500
Subject: forth: Fix critical string-resizing bug

---
 forth/printer.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'forth/printer.fs')

diff --git a/forth/printer.fs b/forth/printer.fs
index 6152993..d035e94 100644
--- a/forth/printer.fs
+++ b/forth/printer.fs
@@ -28,7 +28,7 @@ require types.fs
 : str-append { buf-addr buf-str-len str-addr str-len }
   buf-str-len str-len +
   { new-len }
-  new-len str-base-size > if
+  new-len str-base-size >= if
     buf-str-len new-len xor buf-str-len > if
       buf-addr new-len round-up resize throw
       to buf-addr
-- 
cgit v1.2.3