UNPKG

forth

Version:

Forth programming environment

47 lines (40 loc) 446 B
// : foo 1 if 2 then 3 ; { // <-- } { ; // 1 // <-- } { ; // 1 L1: { if (!dpop()) break L1; // IF ( orig: -- L1 ) // <-- } } { ; // 1 L1: { if (!dpop()) break L1; // IF ; // 2 // <-- } } { ; // 1 L1: { if (!dpop()) break L1; // IF ; // 2 } // THEN ( orig: L1 -- ) // <-- } { ; // 1 L1: { if (!dpop()) break L1; // IF ; // 2 } // THEN ( orig: L1 -- ) ; // 3 // <-- }