 
 FUNCTION: int ffi_test_37 ( void* func ) ;
 
-[ 1 ] [ callback-9 ffi_test_37 ] unit-test-with-destructors
-
-[ 7 ] [ callback-9 ffi_test_37 ] unit-test-with-destructors
+[ 1 ] [ callback-9 [ ffi_test_37 ] with-callback ] unit-test
+
+[ 7 ] [ callback-9 [ ffi_test_37 ] with-callback ] unit-test
 
 STRUCT: test_struct_13
 { x1 float }

[ T{ some-tuple f 5.0 } ] [
    [
        some-tuple new
        aa-callback-1
        aa-indirect-1 >>x
    ] compile-call
] unit-test-with-destructors

! GC maps regression
: anton's-regression ( -- )

SPECIALIZED-ARRAY: char
IN: compiler.tests.alien

! Make sure that invalid inputs don't pass the stack checker
[ [ void { } "cdecl" alien-indirect ] infer ] must-fail
[ [ "void" { } cdecl alien-indirect ] infer ] must-fail
