From 10b870085a4b94f8a1aef0d8431a0b8cb0019edc Mon Sep 17 00:00:00 2001
From: Stephen Chang <stchang@ccs.neu.edu>
Date: Mon, 4 Aug 2014 18:49:37 -0400
Subject: [PATCH] add stx-utils

---
 stx-utils.rkt | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 stx-utils.rkt

diff --git a/stx-utils.rkt b/stx-utils.rkt
new file mode 100644
index 0000000..489c12b
--- /dev/null
+++ b/stx-utils.rkt
@@ -0,0 +1,4 @@
+#lang racket/base
+(require syntax/stx)
+(provide (all-defined-out))
+(define (stx-cadr stx) (car (stx-cdr stx)))
\ No newline at end of file