8 lines
181 B
Scheme
8 lines
181 B
Scheme
(define (gen ignored)
|
|
(local ((define-struct local-struct (local-field))
|
|
(define silly-def (+ 3 4)))
|
|
(make-local-struct 13)))
|
|
|
|
(define p (gen 1))
|
|
(define q (gen 1))
|