Changeset 25557 in project
- Timestamp:
- 11/23/11 14:18:42 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gazette/src/issues/21.wiki
r25556 r25557 378 378 <enscript> 379 379 (define (define-third-party name address group) 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 380 (let* ((balance-account 381 (make-account 382 (string-append name ".balance") 383 'balance 384 group 385 #f)) 386 (expenses-account 387 (make-account 388 (string-append name ".expenses") 389 'delta 390 'expenses-reclaimed 391 #f)) 392 (third-party 393 (make-third-party 394 name address balance-account expenses-account))) 395 (account-third-party-set! balance-account third-party) 396 (account-third-party-set! expenses-account third-party) 397 (register-account! balance-account) 398 (register-account! expenses-account) 399 (set! (hash-table-ref *third-parties* name) third-party))) 400 400 </enscript> 401 401
Note: See TracChangeset
for help on using the changeset viewer.