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

Joe Groff 2010-05-24 12:58:14 -07:00
parent e36b5a774c
commit 7027838fda
1 changed files with 5 additions and 4 deletions

View File

@ -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 ) ;