From 0d286a0b17408936817d71effed57c9aa2765d63 Mon Sep 17 00:00:00 2001 From: erg Date: Sat, 24 Nov 2007 22:06:45 -0600 Subject: [PATCH] Fix stack effect --- extra/pack/pack.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/pack/pack.factor b/extra/pack/pack.factor index fd39f83a98..c9d05c19d7 100644 --- a/extra/pack/pack.factor +++ b/extra/pack/pack.factor @@ -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, ;