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

db4
Joe Groff 2010-05-24 12:58:14 -07:00
parent 44ed11a084
commit 60b20d590a
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 ) ;