From 7027838fdaf17618d4c6bb34264b94e585d4c623 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 24 May 2010 12:58:14 -0700 Subject: [PATCH] math.vectors.simd.intrinsics: remove call( -- ) wrapper from fallbacks --- basis/math/vectors/simd/intrinsics/intrinsics.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/basis/math/vectors/simd/intrinsics/intrinsics.factor b/basis/math/vectors/simd/intrinsics/intrinsics.factor index 13afdef58a..0ccb6651b9 100644 --- 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 ) ;