From 87c670b785604ecff2cd2493ff9fd328f8cac209 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Tue, 25 Aug 2009 20:57:23 -0500 Subject: [PATCH] no really, support of structs using struct-arrays --- basis/alien/c-types/c-types.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor index 4fc8dab9fe..9f7ac75558 100755 --- a/basis/alien/c-types/c-types.factor +++ b/basis/alien/c-types/c-types.factor @@ -98,12 +98,12 @@ M: array require-c-type-arrays ERROR: specialized-array-vocab-not-loaded vocab word ; : c-type-array-constructor ( c-type -- word ) - array-constructor>> dup word? - [ first2 specialized-array-vocab-not-loaded ] unless ; foldable + array-constructor>> dup array? + [ first2 specialized-array-vocab-not-loaded ] when ; foldable : c-type-direct-array-constructor ( c-type -- word ) - direct-array-constructor>> dup word? - [ first2 specialized-array-vocab-not-loaded ] unless ; foldable + direct-array-constructor>> dup array? + [ first2 specialized-array-vocab-not-loaded ] when ; foldable GENERIC: ( len c-type -- array ) M: object