UNPKG

forth

Version:

Forth programming environment

80 lines (71 loc) 826 B
// : foo 1 if 2 else 3 then 4 ; { // <-- } { ; // 1 // <-- } { ; // 1 L1: { if (!dpop()) break L1; // IF ( orig: -- L1 ) // <-- } } { ; // 1 L1: { if (!dpop()) break L1; // IF ; // 2 // <-- } } { ; // 1 L2: { L1: { if (!dpop()) break L1; // IF ; // 2 break L2; // ELSE ( orig: L1 -- L2 ) } // <-- } } { ; // 1 L2: { L1: { if (!dpop()) break L1; // IF ; // 2 break L2; // ELSE } ; // 3 // <-- } } { ; // 1 L2: { L1: { if (!dpop()) break L1; // IF ; // 2 break L2; // ELSE } ; // 3 } // THEN ( orig: L2 -- ) // <-- } { ; // 1 L2: { L1: { if (!dpop()) break L1; // IF ; // 2 break L2; // ELSE } ; // 3 } // THEN ; // 4 // <-- }