First version of record-syntax

1 files changed, 11 insertions, 0 deletions

diff --git a/scheme/aps/record-syntax.sls b/scheme/aps/record-syntax.sls
new file mode 100644
index 0000000..fa7612d
--- /dev/null
+++ b/scheme/aps/record-syntax.sls
@@ -0,0 +1,11 @@
+#!r6rs
+(library (aps record-syntax)
+(export record-syntax)
+(import (rnrs) (for (rnrs) (meta -1))
+        (sweet-macros) (for (only (aps list-utils) range) expand run))
+
+(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)) ...)))
+)