From c6b0a91f3476493ae9bab1f4e6f5ab381d52e00f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 5 Nov 2009 01:08:58 -0600 Subject: [PATCH] alien.c-types: use (byte-array) instead of in out parameter constructors --- basis/alien/c-types/c-types.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor index 119e437734..e06c543b54 100755 --- a/basis/alien/c-types/c-types.factor +++ b/basis/alien/c-types/c-types.factor @@ -292,7 +292,7 @@ M: long-long-type box-return ( c-type -- ) : define-out ( name -- ) [ "alien.c-types" constructor-word ] - [ dup c-setter '[ _ heap-size [ 0 @ ] keep ] ] bi + [ dup c-setter '[ _ heap-size (byte-array) [ 0 @ ] keep ] ] bi (( value -- c-ptr )) define-inline ; : define-primitive-type ( c-type name -- )