Changeset 25557 in project for gazette


Ignore:
Timestamp:
11/23/11 14:18:42 (7 years ago)
Author:
mario
Message:

gazette issue 21: fixed indentation for `define-third-party' (omelette recipe)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gazette/src/issues/21.wiki

    r25556 r25557  
    378378<enscript>
    379379(define (define-third-party name address group)
    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)))
     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)))
    400400</enscript>
    401401
Note: See TracChangeset for help on using the changeset viewer.