From: Phil Burk <philburk@mobileer.com>
Date: Sun, 21 Feb 2021 17:52:11 +0000 (-0800)
Subject: csrc: fix stack diagram for BIN
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=0d672885a024ce32602006150132a72837e3d99d;p=debian%2Fpforth

csrc: fix stack diagram for BIN

Fixes #89
---

diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index fc1d7e4..b23974d 100644
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -1134,7 +1134,7 @@ DBUG(("XX ah,m,l = 0x%8x,%8x,%8x - qh,l = 0x%8x,%8x\n", ah,am,al, qh,ql ));
             TOS = PF_FAM_WRITE_ONLY;
             endcase;
 
-        case ID_FILE_BIN: /* ( -- fam ) */
+        case ID_FILE_BIN: /* ( fam1 -- fam2 ) */
             TOS = TOS | PF_FAM_BINARY_FLAG;
             endcase;