summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--software.sxml21
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 @@
157 table)) 157 table))
158 158
159(define-syntax-rule (define-member person projects ...) 159(define-syntax-rule (define-member person projects ...)
160 (for-each (lambda (project-id) 160 (let ((p person))
161 (let ((project 161 (for-each (lambda (project-id)
162 (hash-table-ref %projects project-id 162 (let ((project
163 (lambda () 163 (hash-table-ref %projects project-id
164 (error (format #false 164 (lambda ()
165 "Unknown project ~a for ~a~%" 165 (error (format #false
166 project-id name)))))) 166 "Unknown project ~a for ~a~%"
167 (set-project-members! 167 project-id name))))))
168 project (cons person (project-members project))))) 168 (set-project-members!
169 (quote (projects ...)))) 169 project (cons p (project-members project)))))
170 (quote (projects ...)))))
170 171
171(define-member (person "Carlos O'Donell") 172(define-member (person "Carlos O'Donell")
172 glibc gcc) 173 glibc gcc)