13 lines
299 B
Plaintext
13 lines
299 B
Plaintext
(begin (define *test-begin-a* '*test-begin-a*))
|
|
|
|
(display "defined? *test-begin-a*: ")
|
|
(display (defined? '*test-begin-a*))
|
|
(newline)
|
|
(display *test-begin-a*)
|
|
(newline)
|
|
|
|
(let () (define *test-let-a* '*test-let-a*) #f)
|
|
(display "defined? *test-let-a*: ")
|
|
(display (defined? '*test-let-a*))
|
|
(newline)
|