X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_inner.c;fp=csrc%2Fpf_inner.c;h=dffadf0b6e60e47538718d1ab005bd1de96b967e;hb=78d81c7341f66e9b35fe130147e3de34cbc0946e;hp=c9b9f46bb252f0a8db47b00cb203225025b98185;hpb=0d6f7131fcdf915b987a12cb98e2749ff48d18b9;p=debian%2Fpforth diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c index c9b9f46..dffadf0 100644 --- a/csrc/pf_inner.c +++ b/csrc/pf_inner.c @@ -502,6 +502,7 @@ DBUGX(("After Branch: IP = 0x%x\n", InsPtr )); endcase; case ID_BYE: + EMIT_CR; M_THROW( THROW_BYE ); endcase;