classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / basis / compiler / tests / alien.factor

diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 7edb8402261ad7e57dfcc7e48d3f84b63000a131..faea5a6fe63ccb3cd237255fbc51a8724b0994e0 100644 (file)
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -762,11 +762,11 @@ mingw? [
 
 : fastcall-struct-return-ii-callback ( -- ptr )
     test-struct-11 { int int } fastcall
-    [ [ + ] [ - ] 2bi test-struct-11 <struct-boa> ] alien-callback ;
+    [ [ + ] [ - ] 2bi test-struct-11 boa ] alien-callback ;
 
 : fastcall-struct-return-iii-callback ( -- ptr )
     test-struct-11 { int int int } fastcall
-    [ [ drop + ] [ - nip ] 3bi test-struct-11 <struct-boa> ] alien-callback ;
+    [ [ drop + ] [ - nip ] 3bi test-struct-11 boa ] alien-callback ;
 
 { 8 } [
     3 4 fastcall-ii-callback [ fastcall-ii-indirect ] with-callback