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

change expansion of application with keyword arguments to use quoted lists instead of lifting

Browse Source 
svn: r15083
This commit is contained in:
Matthew Flatt 2009-06-04 21:44:20 +00:00
parent 3679f6f675
commit ae7dab88d3
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scheme/private/kw.ss
View File

@ -694,14 +694,11 @@
(lambda (a b) (lambda (a b)
(keyword<? (syntax-e (car a)) (keyword<? (syntax-e (car a))
(syntax-e (car b)))))] (syntax-e (car b)))))]
[lifted (syntax-local-lift-expression
#`(list #,@(map (lambda (p) #`(quote #,(car p)))
sorted-kws)))]
[cnt (+ 1 (length args))]) [cnt (+ 1 (length args))])
(quasisyntax/loc stx (quasisyntax/loc stx
(let #,(reverse bind-accum) (let #,(reverse bind-accum)
((keyword-procedure-extract #,lifted #,cnt #,(car args)) ((keyword-procedure-extract '#,(map car sorted-kws) #,cnt #,(car args))
#,lifted '#,(map car sorted-kws)
(list #,@(map cdr sorted-kws)) (list #,@(map cdr sorted-kws))
. #,(cdr args)))))] . #,(cdr args)))))]
[(keyword? (syntax-e (car l))) [(keyword? (syntax-e (car l)))