Changeset 25557 in project

Timestamp:

11/23/11 14:18:42 (9 years ago)

Author:

Mario Domenech Goulart

Message:

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

File:

• gazette/src/issues/21.wiki (modified) (1 diff)

gazette/src/issues/21.wiki

@@ -378 +378 @@
 <enscript>
 (define (define-third-party name address group)
-        (let* ((balance-account
-                (make-account
-                 (string-append name ".balance")
-                 'balance
-                 group
-                 #f))
-               (expenses-account
-                (make-account
-                 (string-append name ".expenses")
-                 'delta
-                 'expenses-reclaimed
-                 #f))
-               (third-party
-                (make-third-party
-                 name address balance-account expenses-account)))
-          (account-third-party-set! balance-account third-party)
-          (account-third-party-set! expenses-account third-party)
-          (register-account! balance-account)
-          (register-account! expenses-account)
-          (set! (hash-table-ref *third-parties* name) third-party)))
+  (let* ((balance-account
+          (make-account
+           (string-append name ".balance")
+           'balance
+           group
+           #f))
+         (expenses-account
+          (make-account
+           (string-append name ".expenses")
+           'delta
+           'expenses-reclaimed
+           #f))
+         (third-party
+          (make-third-party
+           name address balance-account expenses-account)))
+    (account-third-party-set! balance-account third-party)
+    (account-third-party-set! expenses-account third-party)
+    (register-account! balance-account)
+    (register-account! expenses-account)
+    (set! (hash-table-ref *third-parties* name) third-party)))
 </enscript>