handball/src/test/run-pass/ambig-scope.scm

#lang scheme

(define (displayln x)
  (newline)
  (display x))

(define (ambig1 x)
  (lambda (x) x))

(displayln ((ambig1 13) 42))

(define (ambig2 a)
  (displayln a)
  (define a- a)
  (lambda (b)
    (displayln b)
    (lambda (a)
      (displayln a)
      (displayln b)
      (displayln a-))))

(((ambig2 1) 2) 3)