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

fix bug in keyword-argument calls

Browse Source 
Closes PR 12104
This commit is contained in:
Matthew Flatt 2011-08-12 07:23:59 -06:00
parent cd1281fa65
commit ce4286c722
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1061,7 +1061,9 @@
#,@(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))
#,(quasisyntax/loc stx (#%app #,wrap-id . #,args)))))))) #,(if lifted?
orig
(quasisyntax/loc stx (#%app #,wrap-id . #,args)))))))))
orig)))) orig))))
(datum->syntax stx (cons wrap-id #'(arg ...)) stx stx)))] (datum->syntax stx (cons wrap-id #'(arg ...)) stx stx)))]
[_ wrap-id])))) [_ wrap-id]))))

5
collects/tests/racket/procs.rktl
View File

@ -278,6 +278,11 @@
(set! f (lambda (#:y y) (box y))) (set! f (lambda (#:y y) (box y)))
(test (box 8) (lambda () (f #:y 8)))) (test (box 8) (lambda () (f #:y 8))))
(let ()
(define (f #:x [x 1]) x)
(test 7 (lambda () (f #:x 7)))
(set! f #f))
;; ---------------------------------------- ;; ----------------------------------------
(report-errs) (report-errs)