suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

syntax/parse: vars w/ splicing-stxclasses bind stxobjs, not lists

Browse Source
This commit is contained in:
Ryan Culpepper 2010-12-09 02:55:30 -07:00
parent 6acf9b6e00
commit c51f769672
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/syntax/parse/private/runtime.rkt
View File

@ -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)