 specialized-arrays.float stack-checker stack-checker.errors
 system threads tools.test words ;
 IN: compiler.tests.alien
-FROM: classes.c-types => short ;
+FROM: classes.c-types => short float ;
 
 <<
 : libfactor-ffi-tests-path ( -- string )

[ 7 ] [ callback-9 ffi_test_37 ] unit-test

STRUCT: test_struct_13
{ x1 single-float }
{ x2 single-float }
{ x3 single-float }
{ x4 single-float }
{ x5 single-float }
{ x6 single-float } ;

: make-test-struct-13 ( -- alien )
    test_struct_13 <struct>

    3 ffi_test_35
] unit-test

STRUCT: test-struct-12 { a int } { x double } ;

: make-struct-12 ( x -- alien )
    test-struct-12 <struct>
