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

Rename reduce-output -> reduce-outputs

db4
Doug Coleman 2009-01-09 15:39:47 -06:00
parent fe2a43b481
commit c8fe4b21e7
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/combinators/smart/smart-docs.factor
View File

@ -48,7 +48,7 @@ HELP: output>sequence
} }
} ; } ;
HELP: reduce-output HELP: reduce-outputs
{ $values { $values
{ "quot" quotation } { "operation" quotation } { "quot" quotation } { "operation" quotation }
{ "newquot" quotation } { "newquot" quotation }
@ -57,7 +57,7 @@ HELP: reduce-output
{ $examples { $examples
{ $example { $example
"USING: combinators.smart kernel math prettyprint ;" "USING: combinators.smart kernel math prettyprint ;"
"3 [ [ 4 * ] [ 4 / ] [ 4 - ] tri ] [ * ] reduce-output ." "3 [ [ 4 * ] [ 4 / ] [ 4 - ] tri ] [ * ] reduce-outputs ."
"-9" "-9"
} }
} ; } ;
@ -84,7 +84,7 @@ ARTICLE: "combinators.smart" "Smart combinators"
{ $subsection output>sequence } { $subsection output>sequence }
{ $subsection output>array } { $subsection output>array }
"Reducing the output of a quotation:" "Reducing the output of a quotation:"
{ $subsection reduce-output } { $subsection reduce-outputs }
"Summing the output of a quotation:" "Summing the output of a quotation:"
{ $subsection sum-outputs } ; { $subsection sum-outputs } ;

4
basis/combinators/smart/smart-tests.factor
View File

@ -14,8 +14,8 @@ IN: combinators.smart.tests
[ 6 ] [ [ 1 2 3 ] [ + ] reduce-output ] unit-test [ 6 ] [ [ 1 2 3 ] [ + ] reduce-outputs ] unit-test
[ [ 1 2 3 ] [ + ] reduce-output ] must-infer [ [ 1 2 3 ] [ + ] reduce-outputs ] must-infer
[ 6 ] [ [ 1 2 3 ] sum-outputs ] unit-test [ 6 ] [ [ 1 2 3 ] sum-outputs ] unit-test

4
basis/combinators/smart/smart.factor
View File

@ -15,8 +15,8 @@ MACRO: input<sequence ( quot -- newquot )
[ infer in>> ] keep [ infer in>> ] keep
'[ _ firstn @ ] ; '[ _ firstn @ ] ;
MACRO: reduce-output ( quot operation -- newquot ) MACRO: reduce-outputs ( quot operation -- newquot )
[ dup infer out>> 1 [-] ] dip n*quot compose ; [ dup infer out>> 1 [-] ] dip n*quot compose ;
: sum-outputs ( quot -- n ) : sum-outputs ( quot -- n )
[ + ] reduce-output ; inline [ + ] reduce-outputs ; inline