From 7ef6d5a68128881aece0eca1ceb0ffbcad3ecd6c Mon Sep 17 00:00:00 2001
From: "michele.simionato" <devnull@localhost>
Date: Fri, 24 Apr 2009 14:10:04 +0000
Subject: Added a picture and minor work on the module system

---
 scheme/aps/record-syntax.sls | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scheme')

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)) ...)))
 )
-- 
cgit v1.2.1