diff options
| author | michele.simionato <devnull@localhost> | 2009-04-24 14:10:04 +0000 |
|---|---|---|
| committer | michele.simionato <devnull@localhost> | 2009-04-24 14:10:04 +0000 |
| commit | 7ef6d5a68128881aece0eca1ceb0ffbcad3ecd6c (patch) | |
| tree | 84eb9df64eba1d4176008d8240f6bf80efc5c491 /scheme | |
| parent | a63b25c4bbfc6003e4a7a60af94f013012d8b175 (diff) | |
| download | micheles-7ef6d5a68128881aece0eca1ceb0ffbcad3ecd6c.tar.gz | |
Added a picture and minor work on the module system
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/aps/record-syntax.sls | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/aps/record-syntax.sls b/scheme/aps/record-syntax.sls index fa7612d..9ade13c 100644 --- a/scheme/aps/record-syntax.sls +++ b/scheme/aps/record-syntax.sls @@ -7,5 +7,6 @@ (def-syntax (record-syntax field-name ...) (with-syntax (((i ...) (range (length #'(field-name ...))))) #'(syntax-match (field-name ...) - (sub (ctx v field-name) #'(vector-ref v i)) ...))) + (sub (ctx v field-name) + #'(vector-ref v i)) ...))) ) |