www

commit f68308c38dfb13a829f0bd2afa36840c6367d557
parent a44a94ce5c06cd05698cf203cddf767302950e92
Author: Stephen Chang <stchang@ccs.neu.edu>
Date:   Thu, 16 Feb 2017 17:59:56 -0500

fix stx->datum

Diffstat:
M
macrotypes/stx-utils.rkt
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/macrotypes/stx-utils.rkt b/macrotypes/stx-utils.rkt
@@ -13,9 +13,9 @@
 
 (define datum->stx datum->syntax)
 (define (stx->datum stx)
-  (if (syntax? stx)
-      (syntax->datum stx)
-      (map syntax->datum stx)))
+  (cond [(syntax? stx) (syntax->datum stx)]
+        [(list? stx) (map stx->datum stx)]
+        [else stx]))
 
 (define (stx-rev stx)
   (reverse (stx->list stx)))