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

23 lines
315 B
Scheme

#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)