]> gitweb.factorcode.org Git - factor.git/commitdiff
alien.c-types: use (byte-array) instead of <byte-array> in out parameter constructors
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Thu, 5 Nov 2009 07:08:58 +0000 (01:08 -0600)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Thu, 5 Nov 2009 07:08:58 +0000 (01:08 -0600)
basis/alien/c-types/c-types.factor

index 119e43773491ec49bcbfa366a55c926add07a103..e06c543b54a5c246b0c54ce41b9977de6213fbea 100755 (executable)
@@ -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 <byte-array> [ 0 @ ] keep ] ] bi
+    [ dup c-setter '[ _ heap-size (byte-array) [ 0 @ ] keep ] ] bi
     (( value -- c-ptr )) define-inline ;
 
 : define-primitive-type ( c-type name -- )