X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_inner.c;h=b23974d6747968a83b56ac1cff1d20e6903435b1;hb=ff136ea5caf229ce3135cc6245051f40a9b443f3;hp=fc1d7e4875b0d3ff5783729b3d8f788982b5c729;hpb=861862f451bf6fea44c052b8a8733853fa2fe9d9;p=debian%2Fpforth

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;