1 files changed, 11 insertions, 10 deletions

diff --git a/software.sxml b/software.sxml
index 3afe7ff..cc6a308 100644
--- a/software.sxml
+++ b/software.sxml
@@ -157,16 +157,17 @@
     table))
 
 (define-syntax-rule (define-member person projects ...)
-  (for-each (lambda (project-id)
-              (let ((project
-                     (hash-table-ref %projects project-id
-                                     (lambda ()
-                                       (error (format #false
-                                                      "Unknown project ~a for ~a~%"
-                                                      project-id name))))))
-                (set-project-members!
-                 project (cons person (project-members project)))))
-            (quote (projects ...))))
+  (let ((p person))
+    (for-each (lambda (project-id)
+                (let ((project
+                       (hash-table-ref %projects project-id
+                                       (lambda ()
+                                         (error (format #false
+                                                        "Unknown project ~a for ~a~%"
+                                                        project-id name))))))
+                  (set-project-members!
+                   project (cons p (project-members project)))))
+              (quote (projects ...)))))
 
 (define-member (person "Carlos O'Donell")
   glibc gcc)