From ec76547da01a2d4f4ed65e46512f88ba16d70be8 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sun, 24 May 2009 12:34:39 +0300 Subject: [PATCH] - 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). --- scheme/last-revision | 2 +- scheme/psyntax.expander.ss | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/last-revision b/scheme/last-revision index 2b8bb9e..197a77e 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1787 +1788 diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index b21bce1..4ec5f41 100644 --- a/scheme/psyntax.expander.ss +++ b/scheme/psyntax.expander.ss @@ -2884,10 +2884,10 @@ (define (chi-defun x r mr) (syntax-match x () - [(_ (_ . fmls) . body*) + [(_ (ctxt . fmls) . body*) (let-values (((fmls body) (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 (lambda (rhs r mr)