Fix stack effect

release
erg 2007-11-24 22:06:45 -06:00
parent ed1b0e1c52
commit 0d286a0b17
1 changed files with 1 additions and 1 deletions

View File

@ -24,7 +24,7 @@ M: integer b, ( m n -- ) >endian % ;
! for doing native, platform-dependent sized values
M: string b, ( n string -- ) heap-size b, ;
: read-native ( string -- ) heap-size read endian> ;
: read-native ( string -- n ) heap-size read endian> ;
! Portable
: s8, ( n -- ) 1 b, ;