Add CR to tick (#132)

[debian/pforth] / csrc / pf_inner.c

diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index b7c8ae156af3dd213c4af109b86dc4020e580cde..3e0c040d6eaf2ca0f197d34dbb185c5ec9a8b5b2 100644 (file)
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -1763,6 +1763,7 @@ DBUG(("XX ah,m,l = 0x%8x,%8x,%8x - qh,l = 0x%8x,%8x\n", ah,am,al, qh,ql ));
             {
                 ERR("' could not find ");
                 ioType( (char *) CharPtr+1, *CharPtr );
+                EMIT_CR;
                 M_THROW(-13);
             }
             else