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

Add more kw source locations.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2020-06-16 15:41:56 -04:00
parent f3dd113e9d
commit 14e206bd0b
1 changed files with 33 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/racket/private/kw.rkt
View File

@ -1390,7 +1390,9 @@
(lambda (args) (lambda (args)
(quasisyntax/loc stx (quasisyntax/loc stx
(if (variable-reference-constant? (#%variable-reference #,wrap-id)) (if (variable-reference-constant? (#%variable-reference #,wrap-id))
(#,impl-id/prop #,(quasisyntax/loc stx
(#%app
#,impl-id/prop
;; keyword arguments: ;; keyword arguments:
#,@(let loop ([kw-args kw-args] [all-kws all-kws]) #,@(let loop ([kw-args kw-args] [all-kws all-kws])
(cond (cond
@ -1420,7 +1422,7 @@
;; rest args: ;; rest args:
#,@(if rest? #,@(if rest?
#`((list #,@(list-tail args (min (length args) (+ n-req n-opt))))) #`((list #,@(list-tail args (min (length args) (+ n-req n-opt)))))
null)) null)))
#,(if lifted? #,(if lifted?
orig orig
(quasisyntax/loc stx (#%app #,wrap-id/prop . #,args))))))))) (quasisyntax/loc stx (#%app #,wrap-id/prop . #,args)))))))))