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

math.extras: .. and ... are cool but not used and can come back soon.

db4
Doug Coleman 2015-07-21 15:53:45 -07:00
parent e1e9182c6e
commit af3605bfe6
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/math/extras/extras.factor
View File

@ -304,9 +304,8 @@ PRIVATE>
[ 0.0 0.0 ] 2dip [ 2dip rot kahan+ ] curry [ 0.0 0.0 ] 2dip [ 2dip rot kahan+ ] curry
[ -rot ] prepose each nip ; inline [ -rot ] prepose each nip ; inline
SYNTAX: .. dup pop scan-object [a,b) suffix! ; ! SYNTAX: .. dup pop scan-object [a,b) suffix! ;
! SYNTAX: ... dup pop scan-object [a,b] suffix! ;
SYNTAX: ... dup pop scan-object [a,b] suffix! ;
GENERIC: sum-squares ( seq -- n ) GENERIC: sum-squares ( seq -- n )
M: object sum-squares [ sq ] map-sum ; M: object sum-squares [ sq ] map-sum ;