steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

specialized-arrays: slightly faster nth-unsafe.

windows-high-dpi
John Benediktsson 2018-03-04 20:48:10 -08:00
parent 39602240da
commit 368a99b0e1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/specialized-arrays/specialized-arrays.factor
View File

@ -66,11 +66,11 @@ M: A clone [ underlying>> clone ] [ length>> ] bi <direct-A> ; inline
M: A length length>> ; inline
M: A nth-unsafe underlying>> \ T alien-element ; inline
M: A nth-unsafe [ integer>fixnum ] dip underlying>> \ T alien-element ; inline
M: A nth-c-ptr underlying>> \ T array-accessor drop swap <displaced-alien> ; inline
M: A set-nth-unsafe underlying>> \ T set-alien-element ; inline
M: A set-nth-unsafe [ integer>fixnum ] dip underlying>> \ T set-alien-element ; inline
M: A like drop dup A instance? [ \ T >c-array ] unless ; inline