add stx-utils

2014-08-04 18:49:37 -04:00 · 2014-08-04 18:49:37 -04:00 · 10b870085a
commit 10b870085a
parent 8f37dd7a34
1 changed files with 4 additions and 0 deletions
--- a/stx-utils.rkt
+++ 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)))