From 095c6f9f859b63fb2e1a3e5c7e1f9adf857f916a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 14 Apr 2021 23:35:00 +0200
Subject: software: Guarantee person pointer identity (!).

* software.sxml (define-member): Define 'p'.
---
 software.sxml | 21 +++++++++++----------
 1 file 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)
-- 
cgit v1.2.1