Fix stack effect

2008-07-08 14:23:27 -05:00 · 2008-07-08 14:23:27 -05:00 · ed788fa49c
parent a950924a18
commit ed788fa49c
1 changed files with 1 additions and 1 deletions
--- a/core/alien/c-types/c-types.factor
+++ b/core/alien/c-types/c-types.factor
@ -198,7 +198,7 @@ M: long-long-type box-return ( type -- )
 : c-bool> ( int -- ? )
    zero? not ;

-: >c-array ( seq type word -- )
+: >c-array ( seq type word -- byte-array )
    [ [ dup length ] dip <c-array> ] dip
    [ [ execute ] 2curry each-index ] 2keep drop ; inline