Loading kernel/int.fs +1 −0 Original line number Original line Diff line number Diff line Loading @@ -585,6 +585,7 @@ defer int-execute ( ... xt -- ... ) : interpret ( ... -- ... ) \ gforth : interpret ( ... -- ... ) \ gforth \ interpret/compile the (rest of the) input buffer \ interpret/compile the (rest of the) input buffer [ cell 4 = [IF] ] false >l [ [THEN] ] \ align LP stack for 32 bit engine r> >l rp@ backtrace-rp0 ! r> >l rp@ backtrace-rp0 ! [ has? EC 0= [IF] ] before-line [ [THEN] ] [ has? EC 0= [IF] ] before-line [ [THEN] ] BEGIN BEGIN Loading Loading
kernel/int.fs +1 −0 Original line number Original line Diff line number Diff line Loading @@ -585,6 +585,7 @@ defer int-execute ( ... xt -- ... ) : interpret ( ... -- ... ) \ gforth : interpret ( ... -- ... ) \ gforth \ interpret/compile the (rest of the) input buffer \ interpret/compile the (rest of the) input buffer [ cell 4 = [IF] ] false >l [ [THEN] ] \ align LP stack for 32 bit engine r> >l rp@ backtrace-rp0 ! r> >l rp@ backtrace-rp0 ! [ has? EC 0= [IF] ] before-line [ [THEN] ] [ has? EC 0= [IF] ] before-line [ [THEN] ] BEGIN BEGIN Loading
