- 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

@@ -1 +1 @@
-1787
+1788

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)