Fix problems found by builder
parent
5a29b2e273
commit
98d6cf4ce8
|
@ -1,6 +1,6 @@
|
||||||
IN: optimizer.def-use.tests
|
IN: optimizer.def-use.tests
|
||||||
USING: inference inference.dataflow optimizer optimizer.def-use
|
USING: inference inference.dataflow optimizer optimizer.def-use
|
||||||
namespaces assocs kernel sequences math tools.test words ;
|
namespaces assocs kernel sequences math tools.test words sets ;
|
||||||
|
|
||||||
[ 3 { 1 1 1 } ] [
|
[ 3 { 1 1 1 } ] [
|
||||||
[ 1 2 3 ] dataflow compute-def-use drop
|
[ 1 2 3 ] dataflow compute-def-use drop
|
||||||
|
|
|
@ -26,8 +26,6 @@ C: <transaction> transaction
|
||||||
: daily-rate>> ( account date -- rate )
|
: daily-rate>> ( account date -- rate )
|
||||||
[ interest-rate>> ] dip daily-rate ;
|
[ interest-rate>> ] dip daily-rate ;
|
||||||
|
|
||||||
: before? ( date date -- ? ) <=> 0 < ;
|
|
||||||
|
|
||||||
: transactions-on-date ( account date -- transactions )
|
: transactions-on-date ( account date -- transactions )
|
||||||
[ before? ] curry filter ;
|
[ before? ] curry filter ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue