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

propagate some source locations for better error reporting

Browse Source 
related to PR 14595
This commit is contained in:
Robby Findler 2014-07-06 00:56:09 -05:00
parent a973556261
commit 53d6fffe71
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/redex-pkgs/redex-lib/redex/private/term.rkt
View File

@ -145,10 +145,11 @@
(cons (syntax [res (func (quasidatum args))])
outer-bindings))
(values result-id (min depth max-depth)))
(loop (syntax (begin (mf-map func)))
(syntax/loc args-stx (args (... ...)))
(syntax (res (... ...)))
(sub1 args-depth)))))))))
(with-syntax ([dots (datum->syntax #'here '... arg-stx)])
(loop (syntax (begin (mf-map func)))
(syntax/loc args-stx (args dots))
(syntax (res dots))
(sub1 args-depth))))))))))
(define (rewrite/max-depth stx depth ellipsis-allowed? continuing-an-application?)
(syntax-case stx (unquote unquote-splicing in-hole hole)