Comment 3 for bug 378735

Hi

This works, thanks, but the behaviour is rather inconsistent now as both the following forms end up as annotated-call:

(define
  (foo x) ; <- this list is the 'area' for the 'lambda'
  (+ x 1))

(define bar
  (lambda (x) (+ x 1)) ; <- this list is the 'area' for the 'lambda'
  )

Now I can live with the above handling, but would prefer that the body of the function be wrapped in the 'area'.

IOW for the first example it will be:

(define (foo x) (+ x 1)) ; <- this list is the 'area' for the 'lambda'

I know I pass psyntax an annotation for that 'area'. But keeping track of it (from what I can see) looks like quite involved.

Thanks

leppie