math.vectors.simd.intrinsics: remove call( -- ) wrapper from fallbacks

diff --git a/basis/math/vectors/simd/intrinsics/intrinsics.factor b/basis/math/vectors/simd/intrinsics/intrinsics.factor
index 13afdef58ad40d269dccea9a589f13122cbaf539..0ccb6651b992feb01209af9a4cde96292aea14e7 100644 (file)
--- a/basis/math/vectors/simd/intrinsics/intrinsics.factor
+++ b/basis/math/vectors/simd/intrinsics/intrinsics.factor
@@ -1,8 +1,8 @@
 ! (c)2009 Slava Pestov, Joe Groff bsd license
 USING: accessors alien alien.c-types alien.data combinators
 sequences.cords cpu.architecture fry generalizations grouping
-kernel libc locals math math.libm math.order math.ranges
-math.vectors sequences sequences.generalizations
+kernel libc locals macros math math.libm math.order
+math.ranges math.vectors sequences sequences.generalizations
 sequences.private sequences.unrolled specialized-arrays
 vocabs.loader words effects.parser locals.parser ;
 QUALIFIED-WITH: alien.c-types c
@@ -20,9 +20,10 @@ IN: math.vectors.simd.intrinsics
     [ simd-intrinsic-body ] keep define-declared ;
 
 SYNTAX: SIMD-INTRINSIC:
-    (:) define-simd-intrinsic ;
+    (:) define-declared ;
 SYNTAX: SIMD-INTRINSIC::
-    (::) define-simd-intrinsic ;
+    (::) define-declared ;
+
 >>
 
 : assert-positive ( x -- y ) ;