- procedures made with defun-style definitions now have proper

source annotation (pointing to the identifier that's the name of
  the procedure, instead of the define keyword itself).
This commit is contained in:
Abdulaziz Ghuloum 2009-05-24 12:34:39 +03:00
parent f3b071548d
commit ec76547da0
2 changed files with 3 additions and 3 deletions

View File

@ -1 +1 @@
1787 1788

View File

@ -2884,10 +2884,10 @@
(define (chi-defun x r mr) (define (chi-defun x r mr)
(syntax-match x () (syntax-match x ()
[(_ (_ . fmls) . body*) [(_ (ctxt . fmls) . body*)
(let-values (((fmls body) (let-values (((fmls body)
(chi-lambda-clause fmls fmls body* r mr))) (chi-lambda-clause fmls fmls body* r mr)))
(build-lambda (syntax-annotation x) fmls body))])) (build-lambda (syntax-annotation ctxt) fmls body))]))
(define chi-rhs (define chi-rhs
(lambda (rhs r mr) (lambda (rhs r mr)