forth
Version:
Forth programming environment
47 lines (40 loc) • 446 B
JavaScript
// : 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
// <--
}