alien.complex.functor: functors2

basis/alien/complex/functor/functor.factor

@@ -1,32 +1,22 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien alien.c-types classes.struct functors
-kernel math math.functions quotations ;
+USING: functors2 ;
 IN: alien.complex.functor
 
-<FUNCTOR: define-complex-type ( N T -- )
+FUNCTOR: define-complex-type ( N: name T: name -- ) [[
 
-N-type IS ${N}
+STRUCT: ${T}-class { real ${N}-type } { imaginary ${N}-type } ;
 
-T-class DEFINES-CLASS ${T}
+: <${T}> ( z -- alien )
+    >rect ${T}-class <struct-boa> >c-ptr ;
 
-<T> DEFINES <${T}>
-*T DEFINES *${T}
-
-WHERE
-
-STRUCT: T-class { real N-type } { imaginary N-type } ;
-
-: <T> ( z -- alien )
-    >rect T-class <struct-boa> >c-ptr ;
-
-: *T ( alien -- z )
+: *${T} ( alien -- z )
     T-class memory>struct [ real>> ] [ imaginary>> ] bi rect> ; inline
 
-T-class lookup-c-type
-<T> 1quotation >>unboxer-quot
-*T 1quotation >>boxer-quot
+${T}-class lookup-c-type
+<${T}> 1quotation >>unboxer-quot
+*${T} 1quotation >>boxer-quot
 complex >>boxed-class
 drop
 
-;FUNCTOR>
+]]