27 lines
406 B
Scheme
27 lines
406 B
Scheme
; https://github.com/munificent/craftinginterpreters/blob/master/test/closure/nested_closure.lox
|
|
#lang scheme
|
|
|
|
(define (displayln x)
|
|
(display x)
|
|
(newline))
|
|
|
|
(define f #f)
|
|
|
|
(define (f1)
|
|
(define a 1)
|
|
(define (f2)
|
|
(define b 2)
|
|
(define (f3)
|
|
(define c 3)
|
|
(define (f4)
|
|
(displayln a)
|
|
(displayln b)
|
|
(displayln c))
|
|
(set! f f4))
|
|
(f3))
|
|
(f2))
|
|
|
|
(f1)
|
|
|
|
(f)
|