From af3605bfe6b1a9a69741d757a430b0eca5bef454 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 21 Jul 2015 15:53:45 -0700 Subject: [PATCH] math.extras: .. and ... are cool but not used and can come back soon. --- extra/math/extras/extras.factor | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 ;