Fix problems found by builder

db4
Slava Pestov 2008-05-02 17:17:53 -05:00
parent 5a29b2e273
commit 98d6cf4ce8
2 changed files with 1 additions and 3 deletions

View File

@ -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

View File

@ -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 ;