diff --git a/core/optimizer/def-use/def-use-tests.factor b/core/optimizer/def-use/def-use-tests.factor index ef829da9f2..f49ab7fcba 100755 --- a/core/optimizer/def-use/def-use-tests.factor +++ b/core/optimizer/def-use/def-use-tests.factor @@ -1,6 +1,6 @@ IN: optimizer.def-use.tests 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 } ] [ [ 1 2 3 ] dataflow compute-def-use drop diff --git a/extra/bank/bank.factor b/extra/bank/bank.factor index 35d1337afc..abe3250ecf 100644 --- a/extra/bank/bank.factor +++ b/extra/bank/bank.factor @@ -26,8 +26,6 @@ C: transaction : daily-rate>> ( account date -- rate ) [ interest-rate>> ] dip daily-rate ; -: before? ( date date -- ? ) <=> 0 < ; - : transactions-on-date ( account date -- transactions ) [ before? ] curry filter ;