From 2a6393f88b7dfffcf836de430d312051f46d8fc4 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Tue, 12 May 2015 20:11:47 -0400
Subject: [PATCH] DSL support

---
 prospect/support/dsl.rkt | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 prospect/support/dsl.rkt

diff --git a/prospect/support/dsl.rkt b/prospect/support/dsl.rkt
new file mode 100644
index 0000000..4096aed
--- /dev/null
+++ b/prospect/support/dsl.rkt
@@ -0,0 +1,12 @@
+#lang racket/base
+
+(require (for-syntax racket/base))
+(provide define&provide-dsl-helper-syntaxes)
+
+(define (illegal-use id context stx)
+  (raise-syntax-error #f (format "Illegal use of ~a outside ~a" id context) stx))
+
+(define-syntax-rule (define&provide-dsl-helper-syntaxes context (identifier ...))
+  (begin (provide identifier ...)
+	 (define-syntax (identifier stx) (illegal-use 'identifier context stx))
+         ...))