From c51f769672c39c67f405dded66a9f49d7750839b Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 9 Dec 2010 02:55:30 -0700 Subject: [PATCH] syntax/parse: vars w/ splicing-stxclasses bind stxobjs, not lists --- collects/syntax/parse/private/runtime.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/syntax/parse/private/runtime.rkt b/collects/syntax/parse/private/runtime.rkt index fb1284e495..0470c41796 100644 --- a/collects/syntax/parse/private/runtime.rkt +++ b/collects/syntax/parse/private/runtime.rkt @@ -99,11 +99,12 @@ (require syntax/stx) (define (stx-list-take stx n) - (let loop ([stx stx] [n n]) - (if (zero? n) - null - (cons (stx-car stx) - (loop (stx-cdr stx) (sub1 n)))))) + (datum->syntax #f + (let loop ([stx stx] [n n]) + (if (zero? n) + null + (cons (stx-car stx) + (loop (stx-cdr stx) (sub1 n))))))) ;; stx-list-drop/cx : stxish stx nat -> (values stxish stx) (define (stx-list-drop/cx x cx n)