     4 "double" c-type set-c-type-align
 ] unless
 
-: sse2? ( -- ? ) "Intrinsic" throw ;
-
-\ sse2? [
+: (sse2?) ( -- ? ) "Intrinsic" throw ;
+
+<<
+
+\ (sse2?) [
     { EAX EBX ECX EDX } [ PUSH ] each
     EAX 1 MOV
     CPUID

cpu.architecture kernel kernel.private math namespaces sequences
generator.registers generator.fixup generator system layouts
alien.compiler combinators command-line
compiler compiler.units io vocabs.loader accessors ;
IN: cpu.x86.32

! We implement the FFI for Linux, OS X and Windows all at once.

    JE
] { } define-if-intrinsic

>>

: sse2? ( -- ? ) (sse2?) ;

"-no-sse2" cli-args member? [
    "Checking if your CPU supports SSE2..." print flush
    [ optimized-recompile-hook ] recompile-hook [
