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

remove >r r>

db4
Doug Coleman 2008-12-14 00:48:06 -06:00
parent 0c1d5ccbb1
commit 6671193879
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

@ -20,7 +20,7 @@ C: <transaction> transaction
: balance>> ( account -- balance ) transactions>> total ; : balance>> ( account -- balance ) transactions>> total ;
: open-account ( name interest-rate interest-payment-day opening-date opening-balance -- account ) : open-account ( name interest-rate interest-payment-day opening-date opening-balance -- account )
>r [ <account> ] keep r> "Account Opened" <transaction> >>transaction ; [ [ <account> ] keep ] dip "Account Opened" <transaction> >>transaction ;
: daily-rate ( yearly-rate day -- daily-rate ) : daily-rate ( yearly-rate day -- daily-rate )
days-in-year / ; days-in-year / ;
@ -56,7 +56,7 @@ C: <transaction> transaction
: each-day ( quot start end -- ) : each-day ( quot start end -- )
2dup before? [ 2dup before? [
>r dup >r over >r swap call r> r> 1 days time+ r> each-day [ dup [ over [ swap call ] dip ] dip 1 days time+ ] dip each-day
] [ ] [
3drop 3drop
] if ; ] if ;