First commit

helpers.scm

@@ -0,0 +1,14 @@
+(define-module (helpers)
+  #:export (define-aux-syntax define-aux-syntaxes define-parameters
+             get-proc syntax->list))
+
+(define-syntax define-aux-syntax
+  (lambda (stx)
+    (syntax-case stx ()
+      ((_ name)
+       #'(define-syntax name
+           (lambda (stx)
+             (syntax-violation 'name "Loop clause used outside of loop macro" stx)))))))
+(define-syntax-rule (define-aux-syntaxes name ...)
+  (begin
+    (define-aux-syntax name) ...))