diff options
Diffstat (limited to '')
| -rw-r--r-- | software.sxml | 21 |
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) |