17 lines
245 B
Scheme
17 lines
245 B
Scheme
|
(define globalSet #f)
|
||
|
(define globalGet #f)
|
||
|
|
||
|
(define (main)
|
||
|
(define a 0)
|
||
|
|
||
|
(define (set) (set! a 1))
|
||
|
(define (get) (display a) (newline))
|
||
|
|
||
|
(set! globalSet set)
|
||
|
(set! globalGet get)
|
||
|
)
|
||
|
|
||
|
(main)
|
||
|
(globalGet)
|
||
|
(globalSet)
|
||
|
(globalGet)
|