From f68308c38dfb13a829f0bd2afa36840c6367d557 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Thu, 16 Feb 2017 17:59:56 -0500 Subject: [PATCH] fix stx->datum --- macrotypes/stx-utils.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/macrotypes/stx-utils.rkt b/macrotypes/stx-utils.rkt index 9666663..495f03f 100644 --- 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)))