1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien.c-types alien.complex.functor accessors
8 { "float" "double" } [ dup "complex-" prepend define-complex-type ] each
12 ! This overrides the fact that small structures are never returned
13 ! in registers on Linux running on 32-bit x86.
14 \ complex-float lookup-c-type t >>return-in-registers? drop