diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor index c8dee82c93..1808e1c031 100644 --- a/extra/math/extras/extras.factor +++ b/extra/math/extras/extras.factor @@ -304,9 +304,8 @@ PRIVATE> [ 0.0 0.0 ] 2dip [ 2dip rot kahan+ ] curry [ -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 ) M: object sum-squares [ sq ] map-sum ;