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

bank: fix compiler warning

db4
Slava Pestov 2009-04-17 20:42:58 -05:00
parent bbd496e304
commit 7db33912a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/bank/bank.factor
View File

@ -54,7 +54,7 @@ C: <transaction> transaction
: process-day ( account date -- ) : process-day ( account date -- )
2dup accumulate-interest ?pay-interest ; 2dup accumulate-interest ?pay-interest ;
: each-day ( quot start end -- ) : each-day ( quot: ( -- ) start end -- )
2dup before? [ 2dup before? [
[ dup [ over [ swap call ] dip ] dip 1 days time+ ] dip each-day [ dup [ over [ swap call ] dip ] dip 1 days time+ ] dip each-day
] [ ] [
@ -63,7 +63,7 @@ C: <transaction> transaction
: process-to-date ( account date -- account ) : process-to-date ( account date -- account )
over interest-last-paid>> 1 days time+ over interest-last-paid>> 1 days time+
[ dupd process-day ] spin each-day ; inline [ dupd process-day ] spin each-day ;
: inserting-transactions ( account transactions -- account ) : inserting-transactions ( account transactions -- account )
[ [ date>> process-to-date ] keep >>transaction ] each ; [ [ date>> process-to-date ] keep >>transaction ] each ;