From 0d286a0b17408936817d71effed57c9aa2765d63 Mon Sep 17 00:00:00 2001
From: erg <erg@erg-laptop.(none)>
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, ;