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

[factor.git] / basis / alien / complex / functor / functor.factor

diff --git a/basis/alien/complex/functor/functor.factor b/basis/alien/complex/functor/functor.factor
index 33a651a19c1d55501d33a1827bd8edca40399472..26f4c60419471593d5416c47dc163d5f567acf0b 100644 (file)
--- a/basis/alien/complex/functor/functor.factor
+++ b/basis/alien/complex/functor/functor.factor
@@ -18,7 +18,7 @@ WHERE
 STRUCT: T-class { real N-type } { imaginary N-type } ;
 
 : <T> ( z -- alien )
-    >rect T-class <struct-boa> >c-ptr ;
+    >rect T-class boa >c-ptr ;
 
 : *T ( alien -- z )
     T-class memory>struct [ real>> ] [ imaginary>> ] bi rect> ; inline