Fix stack effect
parent
ed1b0e1c52
commit
0d286a0b17
|
@ -24,7 +24,7 @@ M: integer b, ( m n -- ) >endian % ;
|
||||||
|
|
||||||
! for doing native, platform-dependent sized values
|
! for doing native, platform-dependent sized values
|
||||||
M: string b, ( n string -- ) heap-size b, ;
|
M: string b, ( n string -- ) heap-size b, ;
|
||||||
: read-native ( string -- ) heap-size read endian> ;
|
: read-native ( string -- n ) heap-size read endian> ;
|
||||||
|
|
||||||
! Portable
|
! Portable
|
||||||
: s8, ( n -- ) 1 b, ;
|
: s8, ( n -- ) 1 b, ;
|
||||||
|
|
Loading…
Reference in New Issue