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

factor: file endings

modern-harvey3
Doug Coleman 2019-12-07 18:36:47 -08:00
parent a4208887b1
commit 360b769ccf
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/modern/slices/slices.factor
View File

@ -138,4 +138,4 @@ ERROR: subseq-expected-but-got-eof string n expected ;
] if ; inline ] if ; inline
: peek-from ( string n count -- string n slice ) : peek-from ( string n count -- string n slice )
[ drop ] [ drop ] [ + ] 2tri reach ?<slice> ; [ drop ] [ drop ] [ + ] 2tri reach ?<slice> ;

2
extra/tensors/tensor-slice/tensor-slice-tests.factor
View File

@ -9,4 +9,4 @@ IN: tensors.tensor-slice.tests
{ { 6 8 } } [ -4 15 2 10 <iota> <step-slice> >array ] unit-test { { 6 8 } } [ -4 15 2 10 <iota> <step-slice> >array ] unit-test
{ { 1 3 } } [ 1 4 2 10 <iota> <step-slice> >array ] unit-test { { 1 3 } } [ 1 4 2 10 <iota> <step-slice> >array ] unit-test
{ { 1 3 } } [ 1 5 2 10 <iota> <step-slice> >array ] unit-test { { 1 3 } } [ 1 5 2 10 <iota> <step-slice> >array ] unit-test
{ { 1 3 5 } } [ 1 6 2 10 <iota> <step-slice> >array ] unit-test { { 1 3 5 } } [ 1 6 2 10 <iota> <step-slice> >array ] unit-test

2
extra/tensors/tensor-slice/tensor-slice.factor
View File

@ -23,4 +23,4 @@ M: step-slice virtual@
M: step-slice length M: step-slice length
[ to>> ] [ from>> - ] [ step>> ] tri [ to>> ] [ from>> - ] [ step>> ] tri
dup 0 < [ [ neg 0 max ] dip neg ] when /mod dup 0 < [ [ neg 0 max ] dip neg ] when /mod
zero? [ 1 + ] unless ; zero? [ 1 + ] unless ;

2
extra/tensors/tensors.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data arrays USING: accessors alien.c-types alien.data arrays
concurrency.combinators grouping kernel locals math.functions concurrency.combinators grouping kernel locals math.functions
math.ranges math.statistics math multi-methods quotations sequences math.ranges math.statistics math multi-methods quotations sequences
sequences.private specialized-arrays tensors.tensor-slice typed ; sequences.private specialized-arrays tensors.tensor-slice typed ;
QUALIFIED-WITH: alien.c-types c QUALIFIED-WITH: alien.c-types c
SPECIALIZED-ARRAY: c:float SPECIALIZED-ARRAY: c:float