Clean up
parent
645c9ac129
commit
05e4626c49
|
@ -346,7 +346,7 @@ M: label JUMPcc (JUMPcc) label-fixup ;
|
||||||
: LEAVE ( -- ) HEX: c9 , ;
|
: LEAVE ( -- ) HEX: c9 , ;
|
||||||
|
|
||||||
: RET ( n -- )
|
: RET ( n -- )
|
||||||
dup zero? [ drop HEX: c3 , ] [ HEX: C2 , 2, ] if ;
|
dup zero? [ drop HEX: c3 , ] [ HEX: c2 , 2, ] if ;
|
||||||
|
|
||||||
! Arithmetic
|
! Arithmetic
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue